6.2.1950 OF CORE EXT

Interpretation:

Interpretation semantics for this word are undefined.

Compilation:

( C: -- of-sys )

Put of-sys onto the control flow stack. Append the run-time semantics given below to the current definition. The semantics are incomplete until resolved by a consumer of of-sys such as ENDOF.

Run-time:

( x₁ x₂ -- | x₁ )

If the two values on the stack are not equal, discard the top value and continue execution at the location specified by the consumer of of-sys, e.g., following the next ENDOF. Otherwise, discard both values and continue execution in line.

See:

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

Rationale:

Typical use:

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

Testing:

See F.6.2.0873 CASE.