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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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