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-gtk-icon ( -- )
"ui.backend.gtk" vocab [
"Stripping GTK icon loading code" show
strip-destructors
strip-call
strip-cocoa
+ strip-gobject
strip-gtk-icon
strip-debugger
strip-ui-error-hook