6.2.1342
ENDCASE
end-case
CORE EXT
Interpretation:
Interpretation semantics for this word are undefined.

Compilation:
( C: case-sys -- )

Mark the end of the CASE...OF...ENDOF...ENDCASE structure. Use case-sys to resolve the entire structure. Append the run-time semantics given below to the current definition.

Run-time:
( x -- )

Discard the case selector x and continue execution.

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