6.2.1343
ENDOF
end-of
CORE EXT
Interpretation:
Interpretation semantics for this word are undefined.

Compilation:
( C: case-sys1 of-sys -- case-sys2 )

Mark the end of the OF...ENDOF part of the CASE structure. The next location for a transfer of control resolves the reference given by of-sys. Append the run-time semantics given below to the current definition. Replace case-sys1 with case-sys2 on the control-flow stack, to be resolved by ENDCASE.

Run-time:
( -- )

Continue execution at the location specified by the consumer of case-sys2.

Rationale:
Typical use:
: X ...
   CASE
   test1 OF ... ENDOF
   testn OF ... ENDOF
   ... ( default )
   ENDCASE ...
;
Testing: