Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.25, 2000/03/11 20:35:05 | version 1.26, 2000/05/27 18:55:55 |
---|---|
Line 542 IS discode | Line 542 IS discode |
: seedefer ( xt -- ) | : seedefer ( xt -- ) |
dup >body @ xt-see-xt cr | dup >body @ xt-see-xt cr |
dup s" Defer" .defname cr | dup s" Defer" .defname cr |
>name dup ??? = if | >name ?dup-if |
drop ." lastxt >body !" | |
else | |
." IS " .name cr | ." IS " .name cr |
else | |
." lastxt >body !" | |
then ; | then ; |
: see-threaded ( addr -- ) | : see-threaded ( addr -- ) |
C-Pass @ DebugMode = IF | C-Pass @ DebugMode = IF |