[gforth] / gforth / look.fs  

gforth: gforth/look.fs

Diff for /gforth/look.fs between version 1.16 and 1.17

version 1.16, Sun Sep 16 10:20:39 2001 UTC version 1.17, Sat Sep 14 10:59:31 2002 UTC
Line 37 
Line 37 
   
 : (look)  ( xt startlfa -- lfa flag )  : (look)  ( xt startlfa -- lfa flag )
         false swap          false swap
         BEGIN @ dup      BEGIN
         WHILE dup name>int          @ dup
               3 pick = IF nip dup THEN      WHILE
               dup name>int
               threading-method 0= if
                   @
               then
               3 pick = IF
                   nip dup
               THEN
         REPEAT          REPEAT
         drop nip          drop nip
         dup 0<> ;          dup 0<> ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help