version 1.3, 2000/09/23 15:47:09
|
version 1.4, 2001/09/04 08:17:27
|
Line 29
|
Line 29
|
|
|
\ Structural Conditionals 12dec92py |
\ Structural Conditionals 12dec92py |
|
|
: AHEAD compile branch >mark ; immediate restrict |
: AHEAD postpone branch >mark ; immediate restrict |
: IF compile ?branch >mark ; immediate restrict |
: IF postpone ?branch >mark ; immediate restrict |
: THEN sys? dup @ ?struc >resolve ; immediate restrict |
: THEN sys? dup @ ?struc >resolve ; immediate restrict |
: ELSE sys? compile AHEAD swap compile THEN ; |
: ELSE sys? postpone AHEAD swap postpone THEN ; |
immediate restrict |
immediate restrict |
|
|
' THEN Alias ENDIF immediate restrict |
' THEN Alias ENDIF immediate restrict |
|
|
: BEGIN here ; immediate restrict |
: BEGIN here ; immediate restrict |
: WHILE sys? compile IF swap ; immediate restrict |
: WHILE sys? postpone IF swap ; immediate restrict |
: AGAIN sys? compile branch <resolve ; immediate restrict |
: AGAIN sys? postpone branch <resolve ; immediate restrict |
: UNTIL sys? compile ?branch <resolve ; immediate restrict |
: UNTIL sys? postpone ?branch <resolve ; immediate restrict |
: REPEAT over 0= ?struc compile AGAIN compile THEN ; |
: REPEAT over 0= ?struc postpone AGAIN postpone THEN ; |
immediate restrict |
immediate restrict |
|
|