From f9d711c30762ca2cbe0068243dec1f889bd17818 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 12 May 2009 16:56:36 -0500
Subject: [PATCH] tools.deploy.shaker: Only strip out compiler classes if user
doesn't request full environment
---
basis/tools/deploy/shaker/shaker.factor | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor
index 6816445508..5a64878aee 100755
--- a/basis/tools/deploy/shaker/shaker.factor
+++ b/basis/tools/deploy/shaker/shaker.factor
@@ -195,10 +195,12 @@ IN: tools.deploy.shaker
2drop ;
: strip-compiler-classes ( -- )
- "Stripping compiler classes" show
- { "compiler" "stack-checker" }
- [ child-vocabs [ words ] map concat [ class? ] filter ] map concat
- [ dup implementors [ "methods" word-prop delete-at ] with each ] each ;
+ strip-dictionary? [
+ "Stripping compiler classes" show
+ { "compiler" "stack-checker" }
+ [ child-vocabs [ words ] map concat [ class? ] filter ] map concat
+ [ dup implementors [ "methods" word-prop delete-at ] with each ] each
+ ] when ;
: strip-default-methods ( -- )
strip-debugger? [