Return to look.fs CVS log | Up to [gforth] / gforth |
version 1.20, 2002/12/21 17:27:13 | version 1.21, 2003/01/02 21:40:22 |
---|---|
Line 46 decimal | Line 46 decimal |
[IFDEF] decompile-prim | [IFDEF] decompile-prim |
decompile-prim | decompile-prim |
[THEN] | [THEN] |
false rot | >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<> ; |