alien.libraries.finder.windows: Better fix for finding the right library path.
parent
9bbf0af6e8
commit
a8b78071ff
|
@ -2,15 +2,17 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license
|
! See http://factorcode.org/license.txt for BSD license
|
||||||
|
|
||||||
USING: alien.libraries.finder arrays combinators.short-circuit
|
USING: alien.libraries.finder arrays combinators.short-circuit
|
||||||
environment io.files io.files.info io.pathnames kernel sequences
|
environment io.backend io.files io.files.info io.pathnames kernel
|
||||||
splitting system system-info.windows ;
|
sequences splitting system system-info.windows ;
|
||||||
|
|
||||||
IN: alien.libraries.finder.windows
|
IN: alien.libraries.finder.windows
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
: search-paths ( -- seq )
|
: search-paths ( -- seq )
|
||||||
"resource:" system-directory windows-directory 3array
|
"resource:" normalize-path
|
||||||
|
system-directory
|
||||||
|
windows-directory 3array
|
||||||
"PATH" os-env [ ";" split ] [ f ] if* append ;
|
"PATH" os-env [ ";" split ] [ f ] if* append ;
|
||||||
|
|
||||||
: candidate-paths ( name -- seq )
|
: candidate-paths ( name -- seq )
|
||||||
|
|
Loading…
Reference in New Issue