| version 1.22, Mon Dec 31 18:40:26 2007 UTC | version 1.23, Thu Mar 25 16:25:53 2010 UTC | ||
|---|---|---|---|
|
|
||
| leave-sp ! ; | leave-sp ! ; | ||
| : DONE ( compilation orig -- ; run-time -- ) \ gforth | : DONE ( compilation orig -- ; run-time -- ) \ gforth | ||
| \ !! the original done had ( addr -- ) | \g resolves all LEAVEs up to the compilaton orig (from a BEGIN) | ||
| drop >r drop | drop >r drop | ||
| begin | begin | ||
| leave> | leave> |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |