listener-step ( datastack -- datastack' )

Vocabulary

listener.private

Inputs

datastack

an object

Outputs

datastack'

an object

Definition

USING: continuations io kernel lexer listener namespaces
source-files.errors ;

IN: listener.private

:: listener-step ( datastack -- datastack' )
    error-summary? get [ error-summary ] when
    visible-vars. datastack ?datastack.
    input-stream get prompt prompt. flush [
        read-quot [
            [ [ datastack ] ] dip [ with-datastack ] curry
            compose [ with-ctrl-break ] curry
            [ call-error-hook datastack ] recover
        ] [ return ] if*
    ] [
        dup lexer-error?
        [ call-error-hook datastack ] [ rethrow ] if
    ] recover ;