version 1.44, 1997/02/09 21:51:38
|
version 1.45, 1997/02/12 00:25:34
|
Line 528 ghost (does>) ghost noop
|
Line 528 ghost (does>) ghost noop
|
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 |
|
|
Line 779 Build: ( d -- ) T , , H ;
|
Line 780 Build: ( d -- ) T , , H ;
|
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 |
|
|
Line 864 Cond: AGAIN restrict? sys? compile b
|
Line 865 Cond: AGAIN restrict? sys? compile b
|
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 |