gobject-introspection: using xdg vocab.

diff --git a/basis/gobject-introspection/gobject-introspection.factor b/basis/gobject-introspection/gobject-introspection.factor
index 3d380cb68b7c58462625685beee2f173ac3f744d..7990ef597656151427f7b784b69efc9b49d82a29 100755 (executable)
--- a/basis/gobject-introspection/gobject-introspection.factor
+++ b/basis/gobject-introspection/gobject-introspection.factor
@@ -4,7 +4,7 @@ USING: accessors assocs 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 sequences splitting summary vocabs
-vocabs.parser xml ;
+vocabs.parser xdg xml ;
 IN: gobject-introspection
 
 ERROR: gir-not-found name paths ;
@@ -18,8 +18,7 @@ M: gir-not-found summary
 <PRIVATE
 
 : system-gir-dirs ( -- dirs )
-    "XDG_DATA_DIRS" os-env "/usr/local/share/:/usr/share/" or
-    ":" split [ "gir-1.0" append-path ] map ;
+    xdg-data-dirs [ "gir-1.0" append-path ] map ;
 
 : custom-gir-dirs ( -- dirs )
     "GIR_DIRS" os-env ":" split ;