--- gforth/float.fs 1996/09/10 16:08:37 1.20 +++ gforth/float.fs 1997/05/21 20:39:25 1.21 @@ -98,7 +98,7 @@ DOES> ( -- r ) scratch over c@ emit '. emit 1 /string type 'E emit . ; -require debugging.fs +require debugs.fs : sfnumber ( c-addr u -- r true | false ) 2dup [CHAR] e scan ( c-addr u c-addr2 u2 )