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" ] }