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


,------------------------------------------
| 2019-03-16 14:59:29  alextangent  wrote:
| referenceImplementation - The reference implementation is incorrect
| see: https://forth-standard.org/standard/core/QUIT#contribution-76
`------------------------------------------
: 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