[165] 2020-11-13 18:43:12 Max wrote:

referenceImplementation - off-by-one error in reference implementation

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
;