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 ] when*
        ] [
            [
                [
                    "monitor-loop warning for path '" "':"
                    surround write
                ] [ . ] bi* flush
            ] with-global
        ] recover
    ] [ monitor-loop ] bi ;