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

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=

Removed from v.1.48  
changed lines
  Added in v.1.49


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>