| \ : include bl word count included ; |
\ : include bl word count included ; |
| \ we want write include... |
\ we want write include... |
| |
|
| : : ( -- colon-sys ) Header [ ' : @ ] ALiteral cfa, 0 ] ; |
\ : : ( -- colon-sys ) Header [ ' : @ ] ALiteral cfa, 0 ] ; |
| : ; ( 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 |
include search-order.fs |
| |
|
