fix io monitors recusive

2008-10-19 18:30:51 -05:00 · 2008-10-19 18:30:51 -05:00 · e310e382c5
parent 964961ed74
commit e310e382c5
1 changed files with 2 additions and 1 deletions
--- a/basis/io/monitors/recursive/recursive.factor
+++ b/basis/io/monitors/recursive/recursive.factor
@ -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 ;