From 4af3543fcda176a5f930c7d644c2a1689033aa28 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 19 Oct 2008 13:11:10 -0500
Subject: [PATCH] directory fix

---
 extra/io/paths/paths.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/io/paths/paths.factor b/extra/io/paths/paths.factor
index 58b3518edd..8237e59a1b 100755
--- a/extra/io/paths/paths.factor
+++ b/extra/io/paths/paths.factor
@@ -7,7 +7,7 @@ IN: io.paths
 TUPLE: directory-iterator path bfs queue ;
 
 : qualified-directory ( path -- seq )
-    dup directory [ first2 [ append-path ] dip 2array ] with map ;
+    dup directory-files [ append-path ] with map ;
 
 : push-directory ( path iter -- )
     [ qualified-directory ] dip [
@@ -21,7 +21,7 @@ TUPLE: directory-iterator path bfs queue ;
 
 : next-file ( iter -- file/f )
     dup queue>> deque-empty? [ drop f ] [
-        dup queue>> pop-back first2
+        dup queue>> pop-back dup link-info directory?
         [ over push-directory next-file ] [ nip ] if
     ] if ;