Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.48, 1997/05/21 20:39:21 | version 1.49, 1997/06/11 19:51:17 |
---|---|
Line 722 Cond: DOES> restrict? | Line 722 Cond: DOES> restrict? |
dup >magic @ <do:> = | dup >magic @ <do:> = |
IF gexecute T 0 , H EXIT THEN | IF gexecute T 0 , H EXIT THEN |
THEN | THEN |
compile :dodoes gexecute T here H cell - reloff ; | compile :dodoes gexecute T here H tcell - reloff ; |
: TCreate ( -- ) | : TCreate ( -- ) |
last-ghost @ | last-ghost @ |