From 26301fd5b0d378185d49c0b653da74b588ea49bf Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 28 Mar 2016 23:01:56 -0700 Subject: [PATCH] Revert "alien.libraries.finder: Allow library to match just by name. Related to #1099." This reverts commit 20a1c09a423455eca9e3c079969ffe896f31b81d. --- basis/alien/libraries/finder/linux/linux-tests.factor | 9 ++------- basis/alien/libraries/finder/linux/linux.factor | 2 +- 2 files changed, 3 insertions(+), 8 deletions(-) diff --git a/basis/alien/libraries/finder/linux/linux-tests.factor b/basis/alien/libraries/finder/linux/linux-tests.factor index 3b5bc2cb39..416217560f 100644 --- a/basis/alien/libraries/finder/linux/linux-tests.factor +++ b/basis/alien/libraries/finder/linux/linux-tests.factor @@ -1,10 +1,5 @@ -USING: alien.libraries.finder sequences tools.test -alien.libraries.finder.linux.private ; -IN: alien.libraries.finder.linux +USING: alien.libraries.finder sequences tools.test ; +IN: alien.libraries.fidner.linux { t } [ "libm.so" "m" find-library subseq? ] unit-test { t } [ "libc.so" "c" find-library subseq? ] unit-test - -{ t } [ "libSDL" { "libSDL-1.2.so.0" f f } name-matches? ] unit-test -{ t } [ "libSDL-1" { "libSDL-1.2.so.0" f f } name-matches? ] unit-test -{ t } [ "libSDL-1.2" { "libSDL-1.2.so.0" f f } name-matches? ] unit-test diff --git a/basis/alien/libraries/finder/linux/linux.factor b/basis/alien/libraries/finder/linux/linux.factor index 234d688526..406cb9a41e 100644 --- a/basis/alien/libraries/finder/linux/linux.factor +++ b/basis/alien/libraries/finder/linux/linux.factor @@ -32,7 +32,7 @@ CONSTANT: mach-map { mach-map cpu of { "libc6" } or ; : name-matches? ( lib triple -- ? ) - first swap ?head [ ?first ".-" member? ] [ drop f ] if ; + first swap ?head [ ?first CHAR: . = ] [ drop f ] if ; : arch-matches? ( lib triple -- ? ) [ drop ldconfig-arch ] [ second swap subset? ] bi* ;