gforth/look.fs - diff

Return to look.fs CVS log

Up to [gforth] / gforth

-version 1.16, 2001/09/16 10:20:39
+version 1.20, 2002/12/21 17:27:13
  Line 35  decimal
  \ 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 )
-         false swap
+     swap
-         BEGIN @ dup
+     [IFDEF] decompile-prim
-         WHILE dup name>int
+     decompile-prim
-pick = IF nip dup THEN
+     [THEN]
-         REPEAT
+     false rot
-         drop nip
+     BEGIN
-         dup 0<> ;
+         @ dup
+     WHILE
+             dup name>int xt>threaded
+pick = IF
+                 nip dup
+             THEN
+     REPEAT
+     drop nip
+     dup 0<> ;
  \ !!! nicht optimal!