From 84a93dd9986eaab64cfe0486d53b29359b2cd664 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 9 Apr 2013 12:16:27 -0700 Subject: [PATCH] io.directories.search.windows: Windows8 doesn't find ProgramFiles with the existing methods, find it in an os-env. --- basis/io/directories/search/windows/windows.factor | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/basis/io/directories/search/windows/windows.factor b/basis/io/directories/search/windows/windows.factor index cda9403417..cbd86aed07 100644 --- a/basis/io/directories/search/windows/windows.factor +++ b/basis/io/directories/search/windows/windows.factor @@ -1,11 +1,16 @@ ! Copyright (C) 2008 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: arrays fry io.pathnames kernel sequences windows.shell32 -io.directories.search ; +USING: arrays combinators.smart environment fry +io.directories.search io.pathnames kernel sequences +sets windows.shell32 ; IN: io.directories.search.windows : program-files-directories ( -- array ) - program-files program-files-x86 2array harvest ; inline + [ + program-files + program-files-x86 + "ProgramW6432" os-env + ] output>array harvest members ; inline : find-in-program-files ( base-directory quot -- path ) t swap [