| version 1.72, Tue Jun 28 06:45:07 2005 UTC | version 1.73, Sun Oct 2 11:30:34 2005 UTC | ||
|---|---|---|---|
|
|
||
| defstart :-hook ; | defstart :-hook ; | ||
| interpret/compile: DOES> ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core does | interpret/compile: DOES> ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core does | ||
| : defer! ( xt xt-deferred -- ) | : defer! ( xt xt-deferred -- ) \ gforth defer-store | ||
| \G Changes the @code{defer}red word @var{xt-deferred} to execute @var{xt}. | \G Changes the @code{defer}red word @var{xt-deferred} to execute @var{xt}. | ||
| >body ! ; | >body ! ; | ||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |