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

[factor.git] / basis / compiler / tree / recursive / recursive.factor

diff --git a/basis/compiler/tree/recursive/recursive.factor b/basis/compiler/tree/recursive/recursive.factor
index 4517a48fdc23bb527a3f8db43a26622ca3a1712d..2c65a700b6afca3bace5a94be4a048b0c6d03d0f 100644 (file)
--- a/basis/compiler/tree/recursive/recursive.factor
+++ b/basis/compiler/tree/recursive/recursive.factor
@@ -73,7 +73,7 @@ SYMBOLS: not-loops recursive-nesting ;
 : not-a-loop? ( label -- ? ) not-loops get in? ;
 
 : non-tail-calls ( call-graph-node -- seq )
-    calls>> [ tail?>> not ] filter ;
+    calls>> [ tail?>> ] reject ;
 
 : visit-back-edges ( call-graph -- )
     [