From 8c14dd65b5c33f1a6c2a31bc152d22ce6c90ba0b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 27 Feb 2011 20:00:30 -0600
Subject: [PATCH] tools.deploy.shaker: strip out GObject introspection info

---
 basis/tools/deploy/shaker/shaker.factor        | 8 ++++++++
 basis/tools/deploy/shaker/strip-gobject.factor | 3 +++
 2 files changed, 11 insertions(+)
 create mode 100644 basis/tools/deploy/shaker/strip-gobject.factor

diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor
index 941b3e07f2..2329b06b13 100755
--- a/basis/tools/deploy/shaker/shaker.factor
+++ b/basis/tools/deploy/shaker/shaker.factor
@@ -93,6 +93,13 @@ IN: tools.deploy.shaker
         run-file
     ] when ;
 
+: strip-gobject ( -- )
+    "gobject-introspection.types" vocab [
+        "Stripping GObject type info" show
+        "vocab:tools/deploy/shaker/strip-gobject.factor"
+        run-file
+    ] when ;
+
 : strip-specialized-arrays ( -- )
     strip-dictionary? "specialized-arrays" vocab and [
         "Stripping specialized arrays" show
@@ -534,6 +541,7 @@ SYMBOL: deploy-vocab
     strip-destructors
     strip-call
     strip-cocoa
+    strip-gobject
     strip-debugger
     strip-ui-error-hook
     strip-specialized-arrays
diff --git a/basis/tools/deploy/shaker/strip-gobject.factor b/basis/tools/deploy/shaker/strip-gobject.factor
new file mode 100644
index 0000000000..53c4419025
--- /dev/null
+++ b/basis/tools/deploy/shaker/strip-gobject.factor
@@ -0,0 +1,3 @@
+USING: namespaces assocs gobject-introspection.types ;
+
+type-infos global delete-at