io.directories.search: Show directory entries instead of throwing them away.

diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor
index 77bb958e8298e2cc43f546ff5558e62c410310f6..2406f213454e26401337e6a487e44a62526a971d 100644 (file)
--- a/basis/io/directories/search/search.factor
+++ b/basis/io/directories/search/search.factor
@@ -38,7 +38,7 @@ TUPLE: directory-iterator path bfs queue ;
     dup queue>> deque-empty? [ drop f ] [
         dup queue>> pop-back
         dup directory?
-        [ name>> over push-directory-entries next-directory-entry ]
+        [ [ name>> swap push-directory-entries ] keep ]
         [ nip ] if
     ] if ;