: continue. ( -- )
  [ ] callcc0 "Continue" swap '[ drop [ _ continue ] call-listener ]
  <bevel-button> gadget. ;

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

IN: listener.private

: listen ( -- )
  visible-vars.
  stacks.
  continue.
  prompt.
  [ read-quot [ [ error-hook get call ] recover ] [ bye ] if* ]
  [
    dup lexer-error?
      [ error-hook get call ]
      [ rethrow ]
    if
  ]
  recover ;