Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.28, 2000/06/15 09:01:11 | version 1.29, 2000/08/21 20:08:02 |
---|---|
Line 603 Defer discode ( addr u -- ) \ gforth | Line 603 Defer discode ( addr u -- ) \ gforth |
dup >body ." 0 " ? ." 0 0 " | dup >body ." 0 " ? ." 0 0 " |
s" Field" .defname cr ; | s" Field" .defname cr ; |
: xt-see ( xt -- ) | : xt-see ( xt -- ) \ gforth |
\G Decompile the definition represented by @i{xt}. | |
cr c-init | cr c-init |
dup >does-code | dup >does-code |
if | if |