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


,------------------------------------------
| 2020-11-13 18:43:12  Max  wrote:
| referenceImplementation - off-by-one error in reference implementation
| see: https://forth-standard.org/standard/search/DEFINITIONS#contribution-165
`------------------------------------------
After SET-CURRENT consumes the first wordlist, the stack is ( widn ... wid2 n ) i.e. there are n-1 wids to discard.

Thus (if I am not mistaken) the correct reference implementation should be
```
: DEFINITIONS ( -- )
   GET-ORDER SWAP SET-CURRENT 1- discard
;
```