Diff for /gforth/float.fs between versions 1.60 and 1.62

version 1.60, 2011/10/06 21:08:45 version 1.62, 2011/11/14 22:33:22
Line 88  DOES> ( -- r ) Line 88  DOES> ( -- r )
     \G @code{F.} @code{FE.} and @code{FS.} to @i{u}.      \G @code{F.} @code{FE.} and @code{FS.} to @i{u}.
     to precision ;      to precision ;
   
 : scratch ( r -- addr len )  : scratch ( -- addr len )
   pad precision - precision ;    pad precision - precision ;
   
 : zeros ( n -- )   0 max 0 ?DO  '0 emit  LOOP ;  : zeros ( n -- )   0 max 0 ?DO  '0 emit  LOOP ;
Line 147  DOES> ( -- r ) Line 147  DOES> ( -- r )
     dup      dup
     recognizer: r:fnumber      recognizer: r:fnumber
   
     : fnum-recognizer ( addr u -- nt int-table true | addr u false )      : fnum-recognizer ( addr u -- float int-table | addr u r:fail )
     2dup sfnumber  dup          2dup sfnumber
     IF          IF
         drop 2drop r:fnumber  true              2drop r:fnumber  EXIT
     THEN ;          THEN
           r:fail ;
   
 ' fnum-recognizer  ' fnum-recognizer
 forth-recognizer get-recognizers  forth-recognizer get-recognizers

Removed from v.1.60  
changed lines
  Added in v.1.62


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