Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.18, 1997/07/06 14:29:34 | version 1.19, 1998/05/13 16:47:23 |
---|---|
Line 518 IS discode | Line 518 IS discode |
: seecode ( xt -- ) | : seecode ( xt -- ) |
dup s" Code" .defname | dup s" Code" .defname |
>body discode | threading-method |
if | |
>code-address | |
then | |
discode | |
." end-code" cr ; | ." end-code" cr ; |
: seevar ( xt -- ) | : seevar ( xt -- ) |
s" Variable" .defname cr ; | s" Variable" .defname cr ; |