From ca2aef8e670f7d63808c4ab85cfad89eba64a2fe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Sat, 30 Jul 2016 18:58:03 +0200
Subject: [PATCH] io.monitors.recursive: with-qualified-directory-files works
here
---
basis/io/monitors/recursive/recursive.factor | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/basis/io/monitors/recursive/recursive.factor b/basis/io/monitors/recursive/recursive.factor
index cede5d52e7..5dcb02bf93 100755
--- 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