| ghost (.") ghost (S") ghost (ABORT") 2drop drop |
ghost (.") ghost (S") ghost (ABORT") 2drop drop |
| ghost ' drop |
ghost ' drop |
| ghost :docol ghost :doesjump ghost :dodoes 2drop drop |
ghost :docol ghost :doesjump ghost :dodoes 2drop drop |
| |
ghost over ghost = ghost drop 2drop drop |
| |
|
| \ compile 10may93jaw |
\ compile 10may93jaw |
| |
|
| DO: ( ghost -- d ) T dup cell+ @ swap @ H ;DO |
DO: ( ghost -- d ) T dup cell+ @ swap @ H ;DO |
| Builder 2Constant |
Builder 2Constant |
| |
|
| Build: T 0 , H ; |
Build: T , H ; |
| by (Constant) |
by (Constant) |
| Builder Value |
Builder Value |
| |
|
| Build: T 0 A, H ; |
Build: T A, H ; |
| by (Constant) |
by (Constant) |
| Builder AValue |
Builder AValue |
| |
|
| Cond: UNTIL restrict? sys? compile ?branch <resolve ;Cond |
Cond: UNTIL restrict? sys? compile ?branch <resolve ;Cond |
| Cond: REPEAT restrict? over 0= ?struc compile AGAIN compile THEN ;Cond |
Cond: REPEAT restrict? over 0= ?struc compile AGAIN compile THEN ;Cond |
| |
|
| |
Cond: CASE restrict? 0 ;Cond |
| |
Cond: OF restrict? 1+ >r compile over compile = compile IF compile drop |
| |
r> ;Cond |
| |
Cond: ENDOF restrict? >r compile ELSE r> ;Cond |
| |
Cond: ENDCASE restrict? compile drop 0 ?DO compile THEN LOOP ;Cond |
| |
|
| \ Structural Conditionals 12dec92py |
\ Structural Conditionals 12dec92py |
| |
|
| Cond: DO restrict? compile (do) T here H ;Cond |
Cond: DO restrict? compile (do) T here H ;Cond |
