| 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 |
| |
|
| >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> |