Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.52, 2003/03/22 10:04:07 | version 1.53, 2004/01/13 16:00:55 |
---|---|
Line 794 Defer discode ( addr u -- ) \ gforth | Line 794 Defer discode ( addr u -- ) \ gforth |
else \ interpret/compile word | else \ interpret/compile word |
r@ xt-see-xt cr | r@ xt-see-xt cr |
swap xt-see-xt cr | swap xt-see-xt cr |
." interpret/compile " over .name (.immediate) | ." interpret/compile: " over .name drop |
then | then |
then | then |
rdrop drop ; | rdrop drop ; |