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

[factor.git] / extra / gpu / render / render.factor

diff --git a/extra/gpu/render/render.factor b/extra/gpu/render/render.factor
index 08b055e267dcf203c2f4c3540b95680b6815aff8..82f2a71af8f429bdb770410e3d75101120bd2a00 100755 (executable)
--- a/extra/gpu/render/render.factor
+++ b/extra/gpu/render/render.factor
@@ -229,7 +229,7 @@ DEFER: uniform-texture-accessors
     dup length 1 = [ first swap prefix ] [ [ ] 2sequence ] if ;
 
 : uniform-tuple-texture-accessors ( uniform-type -- accessors )
-    all-uniform-tuple-slots [ uniform-type>> uniform-type-texture-units zero? not ] filter
+    all-uniform-tuple-slots [ uniform-type>> uniform-type-texture-units zero? ] reject
     [ uniform-slot-texture-accessor ] map ;
 
 : uniform-texture-accessors ( uniform-type dim -- accessors )
@@ -529,7 +529,7 @@ DEFER: [bind-uniform-tuple]
     } 3cleave ;
 
 : true-subclasses ( class -- seq )
-    [ subclasses ] keep [ = not ] curry filter ;
+    [ subclasses ] keep [ = ] curry reject ;
 
 PRIVATE>