start-vocab-monitor ( vocab-root -- )

Vocabulary

vocabs.refresh.monitor

Inputs

vocab-root

an object

Outputs

None

Definition

USING: continuations io kernel namespaces prettyprint sequences
threads ;

IN: vocabs.refresh.monitor

: start-vocab-monitor ( vocab-root -- )
    [
        dup '[
            [ _ (start-vocab-monitor) ] [
                [
                    _ "fatal error for monitor root '" "': "
                    surround write . flush
                ] with-global
            ] recover
        ]
    ] [ "Root monitor: " prepend ] bi spawn drop ;