[gforth] / gforth / kernel / recognizer.fs  

gforth: gforth/kernel/recognizer.fs

Diff for /gforth/kernel/recognizer.fs between version 1.2 and 1.3

version 1.2, Wed Oct 5 20:56:45 2011 UTC version 1.3, Wed Oct 5 21:02:09 2011 UTC
Line 53 
Line 53 
     THEN      THEN
     drop 2r> false ; Constant num-recognizer      drop 2r> false ; Constant num-recognizer
   
   ' no.extensions dup 2dup recognizer: r:fail
   
 \ recognizer stack  \ recognizer stack
   
 $10 Constant max-rec#  $10 Constant max-rec#
Line 77 
Line 79 
     dup cell+ swap @ cells bounds ?DO      dup cell+ swap @ cells bounds ?DO
         I perform IF  UNLOOP  EXIT  THEN          I perform IF  UNLOOP  EXIT  THEN
     cell +LOOP      cell +LOOP
     no.extensions ;      r:fail ;
   
 : interpreter-r ( addr u -- ... xt )  : interpreter-r ( addr u -- ... xt )
     forth-recognizer do-recognizer r>int @ ;      forth-recognizer do-recognizer r>int @ ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help