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

[factor.git] / basis / unicode / collation / collation.factor

diff --git a/basis/unicode/collation/collation.factor b/basis/unicode/collation/collation.factor
index b907d33ebad8d60b30c4769c7568fb688a6e3135..65d3887fc936bca489d22ac9d31e3d32271cdbb6 100644 (file)
--- a/basis/unicode/collation/collation.factor
+++ b/basis/unicode/collation/collation.factor
@@ -97,8 +97,8 @@ ducet get-global insert-helpers
     ] { } map-as concat ;\r
 \r
 : append-weights ( weights quot -- )\r
-    [ [ ignorable?>> not ] filter ] dip\r
-    map [ zero? not ] filter % 0 , ; inline\r
+    [ [ ignorable?>> ] reject ] dip\r
+    map [ zero? ] reject % 0 , ; inline\r
 \r
 : variable-weight ( weight -- )\r
     dup ignorable?>> [ primary>> ] [ drop 0xFFFF ] if , ;\r