From 96e337f937a87c954ee9b3f5176ba28d438b81c4 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 8 Jun 2014 13:30:54 -0700 Subject: [PATCH] alien.libraries.finder.linux: make "m" find-library work. --- basis/alien/libraries/finder/linux/linux.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/alien/libraries/finder/linux/linux.factor b/basis/alien/libraries/finder/linux/linux.factor index cbdb9d24eb..08cc695146 100644 --- a/basis/alien/libraries/finder/linux/linux.factor +++ b/basis/alien/libraries/finder/linux/linux.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2013 Björn Lindqvist, Doug Coleman. ! 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 io.files.info io.launcher kernel sequences sets splitting system unicode.categories ; @@ -31,7 +31,7 @@ CONSTANT: mach-map { first swap ?head [ ?first CHAR: . = ] [ drop f ] if ; : arch-matches? ( lib triple -- ? ) - nip second ldconfig-arch subset? ; + [ drop ldconfig-arch ] [ second subset? ] bi* ; : ldconfig-matches? ( lib triple -- ? ) { [ name-matches? ] [ arch-matches? ] } 2&& ;