Return to float.fs CVS log | Up to [gforth] / gforth |
version 1.48, 2005/12/31 15:46:08 | version 1.49, 2006/12/28 14:52:20 |
---|---|
Line 127 DOES> ( -- r ) | Line 127 DOES> ( -- r ) |
scratch over c@ emit '. emit 1 /string type | scratch over c@ emit '. emit 1 /string type |
'E emit . ; | 'E emit . ; |
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 ) |
dup 0= | dup 0= |