| 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 compile, 2drop |
| 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 |
| 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 |
| |
|