version 1.142, 2003/09/14 21:16:48
|
version 1.144, 2003/11/10 16:57:05
|
Line 1722 Ghost (do) Ghost (?do)
|
Line 1722 Ghost (do) Ghost (?do)
|
Ghost (for) drop |
Ghost (for) drop |
Ghost (loop) Ghost (+loop) 2drop |
Ghost (loop) Ghost (+loop) 2drop |
Ghost (next) drop |
Ghost (next) drop |
Ghost (does>) Ghost (compile) 2drop |
Ghost (does>) Ghost (does>1) Ghost compile, 2drop drop |
Ghost (.") Ghost (S") Ghost (ABORT") 2drop drop |
Ghost (.") Ghost (S") Ghost (ABORT") 2drop drop |
Ghost (C") Ghost c(abort") Ghost type 2drop drop |
Ghost (C") Ghost c(abort") Ghost type 2drop drop |
Ghost ' drop |
Ghost ' drop |
Line 2631 T has? peephole H [IF]
|
Line 2631 T has? peephole H [IF]
|
|
|
>TARGET |
>TARGET |
Cond: DOES> |
Cond: DOES> |
compile (does>) doeshandler, |
T here 4 cells H + alit, compile (does>1) |
resolve-does>-part |
doeshandler, resolve-does>-part |
;Cond |
;Cond |
|
|
: DOES> |
: DOES> |
Line 3247 Cond: postpone ( -- ) \ name
|
Line 3247 Cond: postpone ( -- ) \ name
|
ABORT" CROSS: Can't postpone on forward declaration" |
ABORT" CROSS: Can't postpone on forward declaration" |
dup >magic @ <imm> = |
dup >magic @ <imm> = |
IF (gexecute) |
IF (gexecute) |
ELSE compile (compile) addr, THEN ;Cond |
ELSE >link @ alit, compile compile, THEN ;Cond |
|
|
\ save-cross 17mar93py |
\ save-cross 17mar93py |
|
|