Diff for /gforth/look.fs between versions 1.18 and 1.20

version 1.18, 2002/09/14 11:18:57 version 1.20, 2002/12/21 17:27:13
Line 42  decimal Line 42  decimal
     then ;      then ;
   
 : (look)  ( xt startlfa -- lfa flag )  : (look)  ( xt startlfa -- lfa flag )
     false swap      swap
       [IFDEF] decompile-prim
       decompile-prim
       [THEN]
       false rot
     BEGIN      BEGIN
         @ dup          @ dup
     WHILE      WHILE

Removed from v.1.18  
changed lines
  Added in v.1.20


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>