Diff for /gforth/look.fs between versions 1.19 and 1.21

version 1.19, 2002/12/13 21:20:39 version 1.21, 2003/01/02 21:40:22
Line 42  decimal Line 42  decimal
     then ;      then ;
   
 : (look)  ( xt startlfa -- lfa flag )  : (look)  ( xt startlfa -- lfa flag )
     swap decompile-prim false rot      swap
       [IFDEF] decompile-prim
       decompile-prim
       [THEN]
       >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<> ;
   
   

Removed from v.1.19  
changed lines
  Added in v.1.21


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