,---------------.
| Contributions |
`---------------´


,------------------------------------------
| 2016-02-06 13:57:57  AntonErtl  wrote:
| referenceImplementation - OF implementation
| see: https://forth-standard.org/standard/rationale#contribution-15
`------------------------------------------
A.3.2.3.2 suggests an implementation of OF that does not comply with the stack effect given in the specifications of OF; we fell into this trap and used this implementation in Gforth for decades, but eventually our mistake was pointed out.  You can find a new implementation that I suggest as reference implementation [here](http://theforth.net/package/compat/current-view/caseext.fs); we now use it in Gforth, but it has also been tested and works on SwiftForth and VFX Forth.  This implementation also implements ?OF, NEXT-CASE, and CONTOF to allow more general usage of this control structure.


,---------.
| Replies |
`---------´


,------------------------------------------
| 2016-02-05 18:31:42  AntonErtl  replies:
| comment - Proposal: end-case
| see: https://forth-standard.org/standard/core/ENDCASE#reply-17
`------------------------------------------
I actually meant 0 ENDCASE.  The stack might be empty before, so DUP could cause a stack underflow.

Thanks for the statistics.