Diff for /gforth/float.fs between versions 1.20 and 1.21

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 )

Removed from v.1.20  
changed lines
  Added in v.1.21


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