Return to kernal.fs CVS log | Up to [gforth] / gforth |
version 1.28, 1995/02/06 18:14:34 | version 1.29, 1995/02/09 17:49:57 |
---|---|
Line 704 Avariable leave-sp leave-stack 3 cells | Line 704 Avariable leave-sp leave-stack 3 cells |
cell - dup @ swap | cell - dup @ swap |
leave-sp ! ; | leave-sp ! ; |
: DONE ( orig -- ) drop >r drop | : DONE ( orig -- ) |
\ !! the original done had ( addr -- ) | \ !! the original done had ( addr -- ) |
drop >r drop | |
begin | begin |
leave> | leave> |
over r@ u>= | over r@ u>= |