From 77f806d6c51cc2389c3f2f96ed8e9f4b6565e905 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 8 Jul 2014 12:21:50 -0500
Subject: [PATCH] alien.libraries.finder: Add find-library-from-list utility
 word.

---
 basis/alien/libraries/finder/finder.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/basis/alien/libraries/finder/finder.factor b/basis/alien/libraries/finder/finder.factor
index 681c605d32..5ea6640985 100644
--- a/basis/alien/libraries/finder/finder.factor
+++ b/basis/alien/libraries/finder/finder.factor
@@ -1,11 +1,14 @@
-
-USING: combinators kernel system vocabs alien.libraries ;
+USING: combinators kernel sequences system vocabs
+alien.libraries ;
 IN: alien.libraries.finder
 
 HOOK: find-library* os ( name -- path/f )
 
 : find-library ( name -- path/library-not-found )
     dup find-library* [ nip ] when* ;
+    
+: find-library-from-list ( seq -- path/f )
+    [ find-library* ] map [ ] find nip ;
 
 {
     { [ os macosx?  ] [ "alien.libraries.finder.macosx"  ] }