Move do-matrix to fix bootstrap

diff --git a/library/opengl/opengl-utils.factor b/library/opengl/opengl-utils.factor
index 7c0a3ee3b7e9bd02842be5dc2f514c5cee8ad8e7..5004185ddd0da48bba5ab6defb43509c39eca4d9 100644 (file)
--- a/library/opengl/opengl-utils.factor
+++ b/library/opengl/opengl-utils.factor
@@ -44,6 +44,9 @@ USING: alien errors kernel math namespaces opengl sdl sequences ;
 : do-state ( what quot -- )
     swap glBegin call glEnd ; inline
 
+: do-matrix ( mode quot -- )
+    swap glMatrixMode glPushMatrix call glPopMatrix ; inline
+
 : gl-color ( { r g b } -- )
     dup first 255 /f over second 255 /f rot third 255 /f
     glColor3d ;
@@ -85,9 +88,6 @@ USING: alien errors kernel math namespaces opengl sdl sequences ;
     #! Draw a polygon.
     GL_LINE_LOOP (gl-poly) ;
 
-: do-matrix ( mode quot -- )
-    swap glMatrixMode glPushMatrix call glPopMatrix ; inline
-
 : gl-set-clip ( loc dim -- )
     dup first2 ( 1+ ) >r >r
     over second swap second + height get swap - >r