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