* OF ( comp-value case-value -- comp-value ) .. ENDOF compare the case-value placed lately with the comp-value being available since >CASE - if they are equal run the following code-portion up to >ENDOF after which the case-construct ends at the next >ENDCASE
OF
( comp-value case-value -- comp-value )
.. ENDOF
>CASE
>ENDOF
>ENDCASE
core compiling primitive