| |
|
| defer ;-hook ( sys2 -- sys1 ) |
defer ;-hook ( sys2 -- sys1 ) |
| |
|
| : : ( "name" -- colon-sys ) \ core colon |
: (:noname) ( -- colon-sys ) |
| Header docol: cfa, defstart ] :-hook ; |
\ common factor of : and :noname |
| |
docol: cfa, defstart ] :-hook ; |
| |
|
| : ; ( compilation colon-sys -- ; run-time nest-sys ) \ core semicolon |
: : ( "name" -- colon-sys ) \ core colon |
| ;-hook ?struc postpone exit reveal postpone [ ; immediate restrict |
Header (:noname) ; |
| |
|
| : :noname ( -- xt colon-sys ) \ core-ext colon-no-name |
: :noname ( -- xt colon-sys ) \ core-ext colon-no-name |
| 0 last ! |
0 last ! |
| cfalign here docol: cfa, 0 ] :-hook ; |
cfalign here (:noname) ; |
| |
|
| |
: ; ( compilation colon-sys -- ; run-time nest-sys ) \ core semicolon |
| |
;-hook ?struc postpone exit reveal postpone [ ; immediate restrict |
| |
|
| \ \ Search list handling: reveal words, recursive 23feb93py |
\ \ Search list handling: reveal words, recursive 23feb93py |
| |
|
