fix io monitors recusive

db4
Doug Coleman 2008-10-19 18:30:51 -05:00
parent 964961ed74
commit e310e382c5
1 changed files with 2 additions and 1 deletions

View File

@ -19,7 +19,8 @@ DEFER: add-child-monitor
: add-child-monitors ( path -- )
#! We yield since this directory scan might take a while.
[
dup [
[ append-path ] with map
[ add-child-monitor ] each yield
] with-directory-files ;