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

[factor.git] / basis / compiler / cfg / linear-scan / linear-scan.factor

diff --git a/basis/compiler/cfg/linear-scan/linear-scan.factor b/basis/compiler/cfg/linear-scan/linear-scan.factor
index d444427a67949152f33b1b6b911380d87a406879..b159502cf10ac01ff188e0ba7d225247f28aa674 100644 (file)
--- a/basis/compiler/cfg/linear-scan/linear-scan.factor
+++ b/basis/compiler/cfg/linear-scan/linear-scan.factor
@@ -10,7 +10,7 @@ IN: compiler.cfg.linear-scan
 
 : admissible-registers ( cfg -- regs )
     machine-registers swap frame-pointer?>> [
-        [ [ frame-reg = not ] filter ] assoc-map
+        [ [ frame-reg = ] reject ] assoc-map
     ] when ;
 
 : allocate-and-assign-registers ( cfg -- )