fix using and in, rename windows -> windows-directory in shell32
parent
f04e74f78f
commit
bc4b8c8dee
|
@ -56,4 +56,4 @@ PRIVATE>
|
|||
: find-in-directories ( directories bfs? quot -- path' )
|
||||
'[ _ _ find-file ] attempt-all ; inline
|
||||
|
||||
os windows? [ "io.paths.windows" require ] when
|
||||
os windows? [ "io.directories.search.windows" require ] when
|
||||
|
|
|
@ -1,7 +1,8 @@
|
|||
! Copyright (C) 2008 Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays fry io.pathnames kernel sequences windows.shell32 ;
|
||||
IN: io.paths
|
||||
USING: arrays fry io.pathnames kernel sequences windows.shell32
|
||||
io.directories.search ;
|
||||
IN: io.directories.search.windows
|
||||
|
||||
: program-files-directories ( -- array )
|
||||
program-files program-files-x86 2array ; inline
|
||||
|
|
|
@ -105,7 +105,7 @@ FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFi
|
|||
: application-data ( -- str )
|
||||
CSIDL_APPDATA shell32-directory ;
|
||||
|
||||
: windows ( -- str )
|
||||
: windows-directory ( -- str )
|
||||
CSIDL_WINDOWS shell32-directory ;
|
||||
|
||||
: programs ( -- str )
|
||||
|
|
Loading…
Reference in New Issue