6.2.1343 ENDOF end-of CORE EXT

Interpretation:

Interpretation semantics for this word are undefined.

Compilation:

( C: case-sys₁ of-sys -- case-sys₂ )

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-sys₁ with case-sys₂ on the control-flow stack, to be resolved by ENDCASE.

Run-time:

( -- )

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

See:

6.2.0873 CASE, 6.2.1342 ENDCASE, 6.2.1950 OF, A.6.2.1343 ENDOF.

Rationale:

Typical use:

: X ...
   CASE
   test1 OF ... ENDOF
   testn OF ... ENDOF
   ... ( default )
   ENDCASE ...
;

Testing:

See F.6.2.0873 CASE.