pump-thread ( monitor -- )

Vocabulary

io.monitors.recursive

Inputs

monitor

an object

Outputs

None

Definition

USING: continuations io.monitors kernel threads ;

IN: io.monitors.recursive

: pump-thread ( monitor -- )
    monitor tset
    [ "" add-child-monitor t monitor-ready t ] [
        [ [ stop-pump ] ignore-errors ] dip self <linked-error>
        monitor-ready f
    ] recover [ pump-loop ] when ;