]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/opengl/demo-support/demo-support.factor
core/basis/extra: use flags{ } in places.
[factor.git] / extra / opengl / demo-support / demo-support.factor
index 852e53b367a302a165067ba2833861372440dd9c..a433bfacabd8efa4b25f8bc5d313c79d8c6e5b98 100644 (file)
@@ -55,7 +55,7 @@ M: demo-world resize-world
     [ demo-world-frustum glFrustum ] bi ;
 
 : demo-world-set-matrix ( gadget -- )
-    GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT bitor glClear
+    flags{ GL_COLOR_BUFFER_BIT GL_DEPTH_BUFFER_BIT } glClear
     GL_MODELVIEW glMatrixMode
     glLoadIdentity
     [ [ 0.0 0.0 ] dip distance>> neg glTranslatef ]