From 7a35d85f30d02e9cf953b4162470737656586dc6 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 13 Apr 2013 15:49:03 -0700 Subject: [PATCH] io.directories.search: Show directory entries instead of throwing them away. --- basis/io/directories/search/search.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor index 77bb958e82..2406f21345 100644 --- 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 ;