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