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

version 1.17, 2002/09/14 10:59:31 version 1.18, 2002/09/14 11:18:57
Line 35  decimal Line 35  decimal
   
 \ rename to discover!!!  \ rename to discover!!!
   
   : xt>threaded ( xt -- x )
   \G produces the threaded-code cell for the primitive xt
       threading-method 0= if
           @
       then ;
   
 : (look)  ( xt startlfa -- lfa flag )  : (look)  ( xt startlfa -- lfa flag )
     false swap      false swap
     BEGIN      BEGIN
         @ dup          @ dup
     WHILE      WHILE
             dup name>int              dup name>int xt>threaded
             threading-method 0= if  
                 @  
             then  
             3 pick = IF              3 pick = IF
                 nip dup                  nip dup
             THEN              THEN

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


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