queue-change ( path changes monitor -- )

Vocabulary

io.monitors

Inputs

path	an object
changes	an object
monitor	an object

Outputs

None

Definition

USING: accessors concurrency.mailboxes destructors kernel ;

IN: io.monitors

: queue-change ( path changes monitor -- )
    3dup and and [
        check-disposed [ file-change boa ] keep
        queue>> mailbox-put
    ] [ 3drop ] if ;