alien.libraries.finder.windows: Better fix for finding the right library path.

db4
Doug Coleman 2014-07-07 23:34:10 -07:00
parent 9bbf0af6e8
commit a8b78071ff
1 changed files with 5 additions and 3 deletions

View File

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