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

[factor.git] / basis / bootstrap / compiler / compiler.factor

diff --git a/basis/bootstrap/compiler/compiler.factor b/basis/bootstrap/compiler/compiler.factor
index e3df91337197db0988f48fe86cd5304c5974188b..d22f0d95c53402e5abe81d758cda6f04339f7f34 100644 (file)
--- a/basis/bootstrap/compiler/compiler.factor
+++ b/basis/bootstrap/compiler/compiler.factor
@@ -32,7 +32,7 @@ gc
 
 : compile-unoptimized ( words -- )
     [ [ subwords ] map ] keep suffix concat
-    [ optimized? not ] filter compile ;
+    [ optimized? ] reject compile ;
 
 "debug-compiler" get [