     [ / ] [ drop f ] if* ; inline
 
 TUPLE: float-parse
-    { radix read-only }
+    { radix fixnum read-only }
     { point read-only }
     { exponent read-only } ;
 

    [ over 10 >= ] [ (two-digit) ] while
    [ over zero? ] [ (one-digit) ] until ; inline

: (positive>dec) ( num -- str )
    3 <sbuf> (bignum>dec) (fixnum>dec) "" like reverse! nip ; inline

: (positive>base) ( num radix -- str )
    dup 1 <= [ invalid-radix ] when

! Copyright (C) 2009 Joe Groff, 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license.
USING: accessors byte-arrays combinators kernel kernel.private
layouts make math math.private namespaces sbufs sequences
sequences.private splitting strings ;
IN: math.parser

: digit> ( ch -- n )
