[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.48 and 1.49

version 1.48, Sat Dec 31 15:46:08 2005 UTC version 1.49, Thu Dec 28 14:52:20 2006 UTC
Line 127 
Line 127 
   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=

Generate output suitable for use with a patch program
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help