| version 1.5, Tue Dec 8 22:02:49 1998 UTC | version 1.6, Wed Dec 23 23:59:21 1998 UTC | ||
|---|---|---|---|
|
|
||
| \ the cross compiler should run | \ the cross compiler should run | ||
| \ with any ansforth environment | \ with any ansforth environment | ||
| : ?EXIT s" IF EXIT THEN" evaluate ; immediate | : ?EXIT POSTPONE if POSTPONE exit POSTPONE then ; immediate | ||
| : bounds over + swap ; | : bounds over + swap ; | ||
| : name bl word ; | : name bl word ; | ||
| : on true swap ! ; | : on true swap ! ; |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |