[76] 2019-03-16 14:59:29 alextangent wrote:

referenceImplementation - The reference implementation is incorrect

: QUIT ( empty the return stack and ) ( set the input source to the user input device ) POSTPONE [ BEGIN ( missing in the reference implementation) REFILL WHILE ['] INTERPRET CATCH CASE 0 OF STATE @ 0= IF ." OK" THEN CR ENDOF -1 OF ( Aborted) ENDOF -2 OF ( display message from ABORT" ) ENDOF ( default ) DUP ." Exception # " . ENDCASE REPEAT BYE ;

Reported by marek.brunda at gmail.com