Diff for /gforth/float.fs between versions 1.59 and 1.61

version 1.59, 2011/10/06 20:04:35 version 1.61, 2011/10/07 17:10:15
Line 147  DOES> ( -- r ) Line 147  DOES> ( -- r )
     dup      dup
     recognizer: r:fnumber      recognizer: r:fnumber
   
     :noname ( 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 ; Constant fnum-recognizer          THEN
           r:fail ;
   
 fnum-recognizer  ' fnum-recognizer
 forth-recognizer get-recognizers  forth-recognizer get-recognizers
 1+ forth-recognizer set-recognizers  1+ forth-recognizer set-recognizers
 [else]  [else]

Removed from v.1.59  
changed lines
  Added in v.1.61


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