| |
|
| \ Structural Conditionals 12dec92py |
\ Structural Conditionals 12dec92py |
| |
|
| |
defer other-control-flow ( -- ) |
| |
\ hook for control-flow stuff that's not handled by begin-like etc. |
| |
|
| : ?struc ( flag -- ) abort" unstructured " ; |
: ?struc ( flag -- ) abort" unstructured " ; |
| : sys? ( sys -- ) dup 0= ?struc ; |
: sys? ( sys -- ) dup 0= ?struc ; |
| : >mark ( -- orig ) |
: >mark ( -- orig ) |
| cs-push-orig 0 , ; |
cs-push-orig 0 , other-control-flow ; |
| : >resolve ( addr -- ) |
: >resolve ( addr -- ) |
| here swap ! |
here swap ! |
| basic-block-end ; |
basic-block-end ; |
