Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.38, 2002/01/04 20:31:54 | version 1.39, 2002/01/26 16:31:40 |
---|---|
Line 584 Defer discode ( addr u -- ) \ gforth | Line 584 Defer discode ( addr u -- ) \ gforth |
: seecode ( xt -- ) | : seecode ( xt -- ) |
dup s" Code" .defname | dup s" Code" .defname |
threading-method | >code-address |
if | |
>code-address | |
then | |
dup in-dictionary? \ user-defined code word? | dup in-dictionary? \ user-defined code word? |
if | if |
dup next-head | dup next-head |