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

2016-07-30 18:58:03 +02:00 · 2016-07-30 18:58:03 +02:00 · ca2aef8e67
parent 48bd0d2b66
commit ca2aef8e67
1 changed files with 2 additions and 3 deletions
--- a/basis/io/monitors/recursive/recursive.factor
+++ b/basis/io/monitors/recursive/recursive.factor
@ -20,10 +20,9 @@ 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 ;
+    ] with-qualified-directory-files ;

 : add-child-monitor ( path -- )
    notify? [ dup { +add-file+ } monitor tget queue-change ] when