| version 1.9, Mon May 3 09:46:20 1999 UTC | version 1.10, Wed May 5 18:10:30 1999 UTC | ||
|---|---|---|---|
|
|
||
| dodoes, here !does ] | dodoes, here !does ] | ||
| defstart :-hook ; | defstart :-hook ; | ||
| :noname | :noname | ||
| ;-hook ?struc exit-like postpone (does>) dodoes, | ;-hook ?struc | ||
| [ has? xconds [IF] ] exit-like [ [THEN] ] | |||
| postpone (does>) dodoes, | |||
| 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 | ||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |