Remove binary/library roots from core/files

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 03bcb777312166e76bae8df626df8ad01bc346a1..3a01cc7d82de34efe0f6d3de3c465b985629508b 100755 (executable)
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 IN: io.files
 USING: io.backend io.files.private io hashtables kernel math
-memory namespaces sequences strings arrays definitions system
-combinators splitting ;
+memory namespaces sequences strings assocs arrays definitions
+system combinators splitting ;
 
 HOOK: <file-reader> io-backend ( path -- stream )
 
@@ -140,3 +140,20 @@ HOOK: binary-roots io-backend ( -- seq )
 
 : find-binary ( str -- path/f )
     binary-roots swap find-file ;
+
+<PRIVATE
+: append-path ( path files -- paths )
+    [ path+ ] curry* map ;
+
+: get-paths ( dir -- paths )
+    dup directory keys append-path ;
+
+: (walk-dir) ( path -- )
+    dup directory? [
+        get-paths dup % [ (walk-dir) ] each
+    ] [
+        drop
+    ] if ;
+PRIVATE>
+
+: walk-dir ( path -- seq ) [ (walk-dir) ] { } make ;