X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Falien%2Flibraries%2Ffinder%2Flinux%2Flinux.factor;h=58e5050da3b201bb7994e95eb8c788cb05a3c7ca;hp=881d3f7e70b34f8fddcffa1332cf6d6259c5e512;hb=714c6d2b9464e193e24cb45fab1961d96a9d422c;hpb=e766b83ac0fcc5857602dcfae2791be3b93602b6 diff --git a/basis/alien/libraries/finder/linux/linux.factor b/basis/alien/libraries/finder/linux/linux.factor index 881d3f7e70..58e5050da3 100644 --- a/basis/alien/libraries/finder/linux/linux.factor +++ b/basis/alien/libraries/finder/linux/linux.factor @@ -20,7 +20,7 @@ CONSTANT: mach-map { [ " " split1 [ "()" in? ] trim "," split [ [ unicode:blank? ] trim ] map - [ ": Linux" subseq-index? ] reject + [ ": Linux" subseq-of? ] reject ] dip 3array ] map ; @@ -50,7 +50,7 @@ CONSTANT: mach-map { "ld" , "-t" , ":" split [ "-L" , , ] each "-o" , "/dev/null" , "-l" name append , ] { } make utf8 [ read-lines ] with-process-reader* 2drop - "lib" name append '[ _ subseq-index? ] find nip + "lib" name append '[ _ subseq-of? ] find nip ] [ f ] if* ; PRIVATE>