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.

See:

Rationale:

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

Testing:

ContributeContributions