io.monitors.recursive: fix typo
parent
76d2b83685
commit
b7182432f3
|
@ -49,10 +49,10 @@ M: recursive-monitor dispose*
|
||||||
monitor tget children>> values dispose-each ;
|
monitor tget children>> values dispose-each ;
|
||||||
|
|
||||||
: pump-step ( msg -- )
|
: pump-step ( msg -- )
|
||||||
monitor tget [
|
monitor tget disposed>> [ drop ] [
|
||||||
[ [ monitor>> path>> ] [ path>> ] bi append-path ] [ changed>> ] bi
|
[ [ monitor>> path>> ] [ path>> ] bi append-path ] [ changed>> ] bi
|
||||||
monitor tget queue-change
|
monitor tget queue-change
|
||||||
] unless-disposed ;
|
] if ;
|
||||||
|
|
||||||
: child-added ( path monitor -- )
|
: child-added ( path monitor -- )
|
||||||
path>> prepend-path add-child-monitor ;
|
path>> prepend-path add-child-monitor ;
|
||||||
|
|
Loading…
Reference in New Issue