控制結構編碼

\ then of F83 

: >RESOLVE ( addr -- ) 

HERE SWAP ! 

;

: ?>RESOLVE ( f addr-- )

swap

?condition \ control structure mismatch ?

>RESOLVE 

;

: THEN ( f addr -- )

?>RESOLVE 

; IMMEDIATE 

\ then of Win32Forth

: >RESOLVE ( addr -- ) 

HERE CELL+ SWAP ! 

;

: THEN ( addr f -- )

?COMP   \ word-name is compilation only ?

2 ?PAIRS \ control structure mismatch ?

COMPILE _THEN 

>RESOLVE 

; IMMEDIATE