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

io.monitors.recursive: with-qualified-directory-files works here

char-rename
Björn Lindqvist 2016-07-30 18:58:03 +02:00
parent 48bd0d2b66
commit ca2aef8e67
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,10 +20,9 @@ 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-qualified-directory-files ;
: add-child-monitor ( path -- ) : add-child-monitor ( path -- )
notify? [ dup { +add-file+ } monitor tget queue-change ] when notify? [ dup { +add-file+ } monitor tget queue-change ] when