io.directories.search.windows: Windows8 doesn't find ProgramFiles with the

existing methods, find it in an os-env.

diff --git a/basis/io/directories/search/windows/windows.factor b/basis/io/directories/search/windows/windows.factor
index cda94034179cac43e15e5ebb36aecf02c0456a0e..cbd86aed07d4c7f3232bb01ccdad83dbf2900a3a 100644 (file)
--- 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 [