version 1.100, 2001/07/10 20:47:09
|
version 1.101, 2001/09/04 09:15:28
|
Line 2442 Cond: compile ( -- ) restrict? \ name
|
Line 2442 Cond: compile ( -- ) restrict? \ name
|
IF gexecute |
IF gexecute |
ELSE compile (compile) addr, THEN THEN ;Cond |
ELSE compile (compile) addr, THEN THEN ;Cond |
|
|
|
Cond: [compile] ( -- ) restrict? \ name |
|
bl word gfind dup 0= ABORT" CROSS: Can't compile" |
|
0> IF gexecute |
|
ELSE dup >magic @ <imm> = |
|
IF gexecute |
|
ELSE compile (compile) addr, THEN THEN ;Cond |
|
|
Cond: postpone ( -- ) restrict? \ name |
Cond: postpone ( -- ) restrict? \ name |
bl word gfind dup 0= ABORT" CROSS: Can't compile" |
bl word gfind dup 0= ABORT" CROSS: Can't compile" |
0> IF gexecute |
0> IF gexecute |
Line 2719 previous
|
Line 2726 previous
|
: unlock previous forth also cross ; |
: unlock previous forth also cross ; |
|
|
\ also minimal |
\ also minimal |
: [[ also unlock ; |
: [[+++ also unlock ; |
: ]] previous previous also also ; |
: +++]] previous previous also also ; |
|
|
unlock definitions also minimal |
unlock definitions also minimal |
: lock lock ; |
: lock lock ; |