use reject instead of [ ... not ] filter.

[factor.git] / basis / tools / deploy / shaker / shaker.factor

diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor
index 4610e2b54725168d3b65215e8e694e33d64931ac..7cd7465582bc473aec19b1a437021398ff09a78d 100755 (executable)
--- a/basis/tools/deploy/shaker/shaker.factor
+++ b/basis/tools/deploy/shaker/shaker.factor
@@ -125,7 +125,7 @@ IN: tools.deploy.shaker
 
 : strip-word-defs ( words -- )
     "Stripping symbolic word definitions" show
-    [ "no-def-strip" word-prop not ] filter
+    [ "no-def-strip" word-prop ] reject
     [ [ ] >>def drop ] each ;
 
 : strip-word-props ( stripped-props words -- )