pump-step ( msg -- )

Vocabulary

io.monitors.recursive

Inputs

msg

an object

Outputs

None

Definition

USING: accessors io.monitors io.pathnames kernel threads ;

IN: io.monitors.recursive

: pump-step ( msg -- )
    monitor tget disposed>>
    [ drop ] [
        [ [ monitor>> path>> ] [ path>> ] bi append-path ]
        [ changed>> ] bi monitor tget queue-change
    ] if ;