alien.libraries.finder.linux: make "m" find-library work.

db4
John Benediktsson 2014-06-08 13:30:54 -07:00
parent 04a04dacca
commit 96e337f937
1 changed files with 2 additions and 2 deletions

View File

@ -1,6 +1,6 @@
! Copyright (C) 2013 Björn Lindqvist, Doug Coleman. ! Copyright (C) 2013 Björn Lindqvist, Doug Coleman.
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: alien.libraries alien.libraries.finder arrays assocs USING: alien.libraries.finder arrays assocs
combinators.short-circuit io io.encodings.utf8 io.files combinators.short-circuit io io.encodings.utf8 io.files
io.files.info io.launcher kernel sequences sets splitting system io.files.info io.launcher kernel sequences sets splitting system
unicode.categories ; unicode.categories ;
@ -31,7 +31,7 @@ CONSTANT: mach-map {
first swap ?head [ ?first CHAR: . = ] [ drop f ] if ; first swap ?head [ ?first CHAR: . = ] [ drop f ] if ;
: arch-matches? ( lib triple -- ? ) : arch-matches? ( lib triple -- ? )
nip second ldconfig-arch subset? ; [ drop ldconfig-arch ] [ second subset? ] bi* ;
: ldconfig-matches? ( lib triple -- ? ) : ldconfig-matches? ( lib triple -- ? )
{ [ name-matches? ] [ arch-matches? ] } 2&& ; { [ name-matches? ] [ arch-matches? ] } 2&& ;