remove-child-monitor ( path -- )

Vocabulary

io.monitors.recursive

Inputs

path

an object

Outputs

None

Definition

USING: accessors assocs destructors io.monitors io.pathnames
kernel sequences splitting threads ;

IN: io.monitors.recursive

:: remove-child-monitor ( path -- )
    monitor tget children>> :> children children keys [
        path ?head
        [ [ t ] [ first path-separator? ] if-empty ] [ drop f ]
        if
    ] filter [ children delete-at* drop ] map dispose-each ;