version 1.143, 2003/11/09 20:47:49
|
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> |