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

[factor.git] / basis / opengl / shaders / shaders.factor

diff --git a/basis/opengl/shaders/shaders.factor b/basis/opengl/shaders/shaders.factor
index f2f527994b319cf2022756f09939d7cec693d8d5..fd2deb4ff10a08095310476b083c1c4ed868d569 100644 (file)
--- a/basis/opengl/shaders/shaders.factor
+++ b/basis/opengl/shaders/shaders.factor
@@ -109,7 +109,7 @@ PREDICATE: fragment-shader < gl-shader (fragment-shader?) ;
     dup gl-program-shaders-length 2 *
     0 int <ref>
     over uint <c-array>
-    [ glGetAttachedShaders ] keep [ zero? not ] filter ;
+    [ glGetAttachedShaders ] keep [ zero? ] reject ;
 
 : delete-gl-program-only ( program -- )
     glDeleteProgram ; inline