From a33c3139a6b7c1cbf74e37363a19b90bfd6b9c0e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 16 Jan 2009 12:36:08 -0600 Subject: [PATCH] dont search empty pathnames on windows --- basis/io/directories/search/windows/windows.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/io/directories/search/windows/windows.factor b/basis/io/directories/search/windows/windows.factor index 91a4afd20d..755710befd 100644 --- a/basis/io/directories/search/windows/windows.factor +++ b/basis/io/directories/search/windows/windows.factor @@ -5,7 +5,7 @@ io.directories.search ; IN: io.directories.search.windows : program-files-directories ( -- array ) - program-files program-files-x86 2array ; inline + program-files program-files-x86 2array harvest ; inline : find-in-program-files ( base-directory bfs? quot -- path ) [