gforth/kernel/cbr.fs - diff

Return to cbr.fs CVS log

Up to [gforth] / gforth / kernel

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