[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.60 and 1.61

version 1.60, Thu Oct 6 21:08:45 2011 UTC version 1.61, Fri Oct 7 17:10:15 2011 UTC
Line 147 
Line 147 
     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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help