[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.177 and 1.178

version 1.177, Fri Dec 31 18:09:02 2010 UTC version 1.178, Thu Oct 6 20:04:35 2011 UTC
Line 693 
Line 693 
     then ;      then ;
 [THEN]  [THEN]
   
   has? recognizer 0= [IF]
 \ not the most efficient implementations of interpreter and compiler  \ not the most efficient implementations of interpreter and compiler
 : interpreter1 ( c-addr u -- ... xt )  : interpreter1 ( c-addr u -- ... xt )
     2dup find-name [ [IFDEF] prelude-mask ] run-prelude [ [THEN] ] dup      2dup find-name [ [IFDEF] prelude-mask ] run-prelude [ [THEN] ] dup
Line 709 
Line 710 
     then ;      then ;
   
 ' interpreter1  IS  parser1  ' interpreter1  IS  parser1
   [THEN]
   
 \ \ Query Evaluate                                      07apr93py  \ \ Query Evaluate                                      07apr93py
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help