pump-thread ( monitor -- )

Vocabulary

io.monitors.recursive

Inputs

monitor

an object

Outputs

None

Definition

USING: concurrency.mailboxes continuations io.monitors kernel
threads ;

IN: io.monitors.recursive

: pump-thread ( monitor -- )
    monitor tset
    [ "" add-child-monitor t monitor-ready ]
    [ [ self <linked-error> monitor-ready ] keep rethrow ]
    recover pump-loop ;