// control.asm:	WORD p_then,'THEN',fasm

anchor:p_then[]

=== Word: THEN

....
Data stack: Compiling: ( a -- )
....

"THEN" is an immediate function word that is used together with
<<p_if,IF>> and <<p_else,ELSE>> to implement structured execution
control. THEN performs the branch resolution for the stacked address
which pinpoints the foot address the branch offset to resolve, so that
at execution time there is an appropriate conditional branch past the
"then-part" or the "else-part" of the "structured statement".