Return to look.fs CVS log | Up to [gforth] / gforth |
version 1.19, 2002/12/13 21:20:39 | version 1.20, 2002/12/21 17:27:13 |
---|---|
Line 42 decimal | Line 42 decimal |
then ; | then ; |
: (look) ( xt startlfa -- lfa flag ) | : (look) ( xt startlfa -- lfa flag ) |
swap decompile-prim false rot | swap |
[IFDEF] decompile-prim | |
decompile-prim | |
[THEN] | |
false rot | |
BEGIN | BEGIN |
@ dup | @ dup |
WHILE | WHILE |