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

version 1.16, 2001/09/16 10:20:39 version 1.19, 2002/12/13 21:20:39
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      swap decompile-prim false rot
         BEGIN @ dup      BEGIN
         WHILE dup name>int          @ dup
               3 pick = IF nip dup THEN      WHILE
         REPEAT              dup name>int xt>threaded
         drop nip              3 pick = IF
         dup 0<> ;                  nip dup
               THEN
       REPEAT
       drop nip
       dup 0<> ;
   
   
 \ !!! nicht optimal!  \ !!! nicht optimal!

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


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