start-shared-listener ( manifest -- )

Vocabulary

tty-server.shared

Inputs

manifest

an object

Outputs

None

Definition

USING: continuations debugger kernel listener listener.private
namespaces parser.notes vocabs.parser ;

IN: tty-server.shared

: start-shared-listener ( manifest -- )
    [
        [
            [ drop print-error-and-restarts ] error-hook set
            parser-quiet? off [ { } listener-loop ] with-return
        ] with-scope
    ] swap (with-manifest) ;