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

2013-04-13 15:49:03 -07:00 · 2013-04-13 15:49:03 -07:00 · 7a35d85f30
parent e501f61141
commit 7a35d85f30
1 changed files with 1 additions and 1 deletions
--- 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 ;