| \ : ; ( colon-sys -- ) ?struc postpone exit reveal postpone [ ; immediate |
\ : ; ( colon-sys -- ) ?struc postpone exit reveal postpone [ ; immediate |
| \ : :noname ( -- xt colon-sys ) here [ ' : @ ] ALiteral cfa, 0 ] ; |
\ : :noname ( -- xt colon-sys ) here [ ' : @ ] ALiteral cfa, 0 ] ; |
| |
|
| |
Create mach-file here over 1+ allot place |
| |
|
| |
include errors.fs |
| |
include extend.fs |
| include search-order.fs |
include search-order.fs |
| |
|
| \ include etags.fs |
\ include etags.fs |
| UNLOCK ghost - drop \ ghost must exist because - would be treated as number |
UNLOCK ghost - drop \ ghost must exist because - would be treated as number |
| LOCK |
LOCK |
| |
|
| 0 AConstant forthstart |
|
| |
|
| doc-off |
doc-off |
| |
has-prims [IF] |
| include aliases.fs \ include primitive aliases |
include aliases.fs \ include primitive aliases |
| |
[ELSE] |
| |
include primitives.fs |
| |
[THEN] |
| doc-on |
doc-on |
| \ include cond.fs \ conditional compile |
|
| \ include patches.fs \ include primitive patches |
0 AConstant forthstart |
| |
|
| include vars.fs \ variables and other stuff |
include vars.fs \ variables and other stuff |
| include add.fs \ additional things |
|
| include errore.fs |
include errore.fs |
| include version.fs |
include version.fs |
| include kernel.fs \ load kernel |
include kernel.fs \ load kernel |
| |
include args.fs |
| |
include files.fs \ load file words |
| include conditionals.fs \ load IF and co |
include conditionals.fs \ load IF and co |
| include extend.fs \ load core-extended |
|
| include tools.fs \ load tools ( .s dump ) |
include tools.fs \ load tools ( .s dump ) |
| include toolsext.fs |
include toolsext.fs |
| include special.fs |
|
| \ include words.fs |
include special.fs \ special must be last! |
| \ include wordinfo.fs |
|
| \ include see.fs \ load see |
|
| \ include search-order.fs |
|
| |
|
| \ Setup 13feb93py |
\ Setup 13feb93py |
| |
|
