factor: trim using lists

[factor.git] / basis / gobject-introspection / gobject-introspection.factor

diff --git a/basis/gobject-introspection/gobject-introspection.factor b/basis/gobject-introspection/gobject-introspection.factor
index 760726084c3acbea1e0ee911d8aade4b7fe21068..798f694947b4cedfd09dcbfbed170bcdc8e2feb7 100644 (file)
--- a/basis/gobject-introspection/gobject-introspection.factor
+++ b/basis/gobject-introspection/gobject-introspection.factor
@@ -3,7 +3,7 @@
 USING: accessors combinators environment
 gobject-introspection.common gobject-introspection.ffi
 gobject-introspection.loader gobject-introspection.types io
-io.files io.pathnames kernel lexer locals make namespaces parser
+io.files io.pathnames kernel lexer make namespaces parser
 sequences splitting summary vocabs vocabs.parser xdg xml ;
 IN: gobject-introspection
 
@@ -11,7 +11,7 @@ ERROR: gir-not-found name paths ;
 
 M: gir-not-found summary
     [ name>> "“" "” file not found on paths:\n" surround ]
-    [ paths>> "\n" join ] bi
+    [ paths>> join-lines ] bi
     "\n\nUse the existing path or declare GIR_DIRS environment variable"
     3append ;
 
@@ -33,11 +33,11 @@ M: gir-not-found summary
     ] { } make ;
 
 :: resolve-gir-path ( path -- path )
-    path exists?
+    path file-exists?
     [ path ] [
         current-vocab-dirs custom-gir-dirs system-gir-dirs
         3append sift :> paths
-        paths [ path append-path exists? ] find nip
+        paths [ path append-path file-exists? ] find nip
         [ path append-path ] [ path paths gir-not-found ] if*
     ] if ;