[gforth] / gforth / look.fs  

gforth: gforth/look.fs

Diff for /gforth/look.fs between version 1.19 and 1.20

version 1.19, Fri Dec 13 21:20:39 2002 UTC version 1.20, Sat Dec 21 17:27:13 2002 UTC
Line 42 
Line 42 
     then ;      then ;
   
 : (look)  ( xt startlfa -- lfa flag )  : (look)  ( xt startlfa -- lfa flag )
     swap decompile-prim false rot      swap
       [IFDEF] decompile-prim
       decompile-prim
       [THEN]
       false rot
     BEGIN      BEGIN
         @ dup          @ dup
     WHILE      WHILE

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help