opengl: fix stack effect error in (all-enabled) combinator and add a unit test

diff --git a/basis/opengl/opengl-tests.factor b/basis/opengl/opengl-tests.factor
new file mode 100644 (file)
index 0000000..818d0db
--- /dev/null
+++ b/basis/opengl/opengl-tests.factor
@@ -0,0 +1,6 @@
+USING: tools.test math opengl opengl.gl ;
+IN: opengl.tests
+
+{ 2 1 } [ { GL_TEXTURE_2D } [ + ] all-enabled ] must-infer-as
+
+{ 2 1 } [ { GL_TEXTURE_2D } [ + ] all-enabled-client-state ] must-infer-as

diff --git a/basis/opengl/opengl.factor b/basis/opengl/opengl.factor
index 513ed912e46e6dc13bbe21a06866412295996a64..1f6205e64fda4575661a31fa8b12096593611d24 100755 (executable)
--- a/basis/opengl/opengl.factor
+++ b/basis/opengl/opengl.factor
@@ -56,7 +56,9 @@ TUPLE: gl-error function code string ;
     [ ?execute ] map ;
 
 : (all-enabled) ( seq quot -- )
-    over [ glEnable ] each dip [ glDisable ] each ; inline
+    [ dup [ glEnable ] each ] dip
+    dip
+    [ glDisable ] each ; inline
 
 : (all-enabled-client-state) ( seq quot -- )
     [ dup [ glEnableClientState ] each ] dip