version 1.6, 1998/12/08 22:03:08
|
version 1.7, 1999/01/02 14:03:36
|
Line 382 defer :-hook ( sys1 -- sys2 )
|
Line 382 defer :-hook ( sys1 -- sys2 )
|
|
|
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 |
|
|