[gforth] / gforth / look.fs  

gforth: gforth/look.fs

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

version 1.20, Sat Dec 21 17:27:13 2002 UTC version 1.21, Thu Jan 2 21:40:22 2003 UTC
Line 46 
Line 46 
     [IFDEF] decompile-prim      [IFDEF] decompile-prim
     decompile-prim      decompile-prim
     [THEN]      [THEN]
     false rot      >r false swap
     BEGIN      BEGIN
         @ dup          @ dup
     WHILE      WHILE
             dup name>int xt>threaded              dup name>int xt>threaded
             3 pick = IF              r@ = IF
                 nip dup                  nip dup
             THEN              THEN
     REPEAT      REPEAT
     drop nip      drop rdrop
     dup 0<> ;      dup 0<> ;
   
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help