version 1.146, 2004/08/26 15:50:44
|
version 1.147, 2004/12/01 10:02:59
|
Line 2205 NoHeaderFlag off
|
Line 2205 NoHeaderFlag off
|
ENDCASE |
ENDCASE |
LOOP ; |
LOOP ; |
|
|
Defer setup-execution-semantics |
Defer setup-execution-semantics ' noop IS setup-execution-semantics |
0 Value lastghost |
0 Value lastghost |
|
|
: (THeader ( "name" -- ghost ) |
: (THeader ( "name" -- ghost ) |
Line 2615 Cond: [ ( -- ) interpreting-state ;Cond
|
Line 2615 Cond: [ ( -- ) interpreting-state ;Cond
|
r@ created >do:ghost ! r@ swap resolve |
r@ created >do:ghost ! r@ swap resolve |
r> tlastcfa @ >tempdp dodoes, tempdp> ; |
r> tlastcfa @ >tempdp dodoes, tempdp> ; |
|
|
Defer instant-interpret-does>-hook |
Defer instant-interpret-does>-hook ' noop IS instant-interpret-does>-hook |
|
|
T has? peephole H [IF] |
T has? peephole H [IF] |
: does-resolved ( ghost -- ) |
: does-resolved ( ghost -- ) |