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

[factor.git] / unmaintained / adsoda / solution2 / solution2.factor

diff --git a/unmaintained/adsoda/solution2/solution2.factor b/unmaintained/adsoda/solution2/solution2.factor
index fa73120df364a11d1c3421971cc3768b85d0119a..9d59102652d190569e6f0a78e6d026d5b655b9fb 100644 (file)
--- a/unmaintained/adsoda/solution2/solution2.factor
+++ b/unmaintained/adsoda/solution2/solution2.factor
@@ -86,7 +86,7 @@ SYMBOL: matrix
     [ 0 0 (echelon) ] with-matrix ;\r
 \r
 : nonzero-rows ( matrix -- matrix' )\r
-    [ [ zero? ] all? not ] filter ;\r
+    [ [ zero? ] all? ] reject ;\r
 \r
 : null/rank ( matrix -- null rank )\r
     echelon dup length swap nonzero-rows length [ - ] keep ;\r