version 1.5, 1994/07/08 15:00:57
|
version 1.6, 1994/07/21 10:52:45
|
Line 7
|
Line 7
|
\ : ; ( 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 ] ; |
|
|
include search-order.fs |
[IFUNDEF] vocabulary include search-order.fs [THEN] |
|
|
include cross.fs \ include cross-compiler |
include cross.fs \ include cross-compiler |
|
|