monitor-loop ( monitor -- )

Vocabulary

vocabs.refresh.monitor

Inputs

monitor

an object

Outputs

None

Definition

USING: accessors continuations io io.monitors kernel namespaces
prettyprint sequences vocabs.cache vocabs.refresh ;

IN: vocabs.refresh.monitor

: monitor-loop ( monitor -- )
    [
        next-change path>>
        [ path>vocab-name [ changed-vocab ] [ reset-cache ] bi ] 
        [
            [
                [
                    "monitor-loop warning for path ``" "``:"
                    surround write
                ] [ . ] bi* flush
            ] with-global
        ] recover
    ] [ monitor-loop ] bi ;