steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.monitors.recursive: fix hang introduced by recent io.monitors change

db4
Slava Pestov 2010-02-19 07:36:12 -05:00
parent cc5394f4e9
commit 5336d6f287
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/io/monitors/recursive/recursive.factor
View File

@ -39,17 +39,19 @@ DEFER: add-child-monitor
: remove-child-monitor ( monitor -- )
monitor tget children>> delete-at* [ dispose ] [ drop ] if ;
SYMBOL: +stop+
M: recursive-monitor dispose*
[ "stop" swap thread>> send-synchronous drop ]
[ call-next-method ]
bi ;
[ [ +stop+ ] dip thread>> send ] [ call-next-method ] bi ;
: stop-pump ( -- )
monitor tget children>> values dispose-each ;
: pump-step ( msg -- )
[ [ monitor>> path>> ] [ path>> ] bi append-path ] [ changed>> ] bi
monitor tget queue-change ;
monitor tget disposed>> [ drop ] [
[ [ monitor>> path>> ] [ path>> ] bi append-path ] [ changed>> ] bi
monitor tget queue-change
] if ;
: child-added ( path monitor -- )
path>> prepend-path add-child-monitor ;
@ -69,8 +71,8 @@ M: recursive-monitor dispose*
] with with each ;
: pump-loop ( -- )
receive dup synchronous? [
[ stop-pump t ] dip reply-synchronous
receive dup +stop+ eq? [
drop stop-pump
] [
[ '[ _ update-hierarchy ] ignore-errors ] [ pump-step ] bi
pump-loop