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

existing methods, find it in an os-env.
db4
Doug Coleman 2013-04-09 12:16:27 -07:00
parent 6c106fb422
commit 84a93dd998
1 changed files with 8 additions and 3 deletions

View File

@ -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 [