         [ float>base ]
     } cond ;
 
-: number>string ( n -- str ) 10 >base ;
-: >bin ( n -- str ) 2 >base ;
-: >oct ( n -- str ) 8 >base ;
-: >hex ( n -- str ) 16 >base ;
-
-: # ( n -- ) number>string % ;
+: number>string ( n -- str ) 10 >base ; inline
+: >bin ( n -- str ) 2 >base ; inline
+: >oct ( n -- str ) 8 >base ; inline
+: >hex ( n -- str ) 16 >base ; inline
+
+: # ( n -- ) number>string % ; inline

PRIVATE>

: string>float ( str -- n/f )
    10 base>float ;

: base> ( str radix -- n/f )
    over numeric-looking? [

    {
        { 16 [ hex>float ] }
        [ drop dec>float ]
    } case ; inline

: number-char? ( char -- ? )
    "0123456789ABCDEFabcdef." member? ; inline

: numeric-looking? ( str -- ? )
    "-" ?head drop
