diff --git a/extra/bake/bake.factor b/extra/bake/bake.factor index d229b19a0e..5e1700c6e2 100644 --- a/extra/bake/bake.factor +++ b/extra/bake/bake.factor @@ -48,5 +48,4 @@ DEFER: bake : bake-items ( seq -- ) [ bake-item ] each ; : bake ( seq -- seq ) - [ reset-building save-exemplar bake-items finish-baking ] with-scope ; - + [ reset-building save-exemplar bake-items finish-baking ] with-scope ; \ No newline at end of file diff --git a/extra/cfdg/gl/gl.factor b/extra/cfdg/gl/gl.factor index e40576907a..35e7de0bb7 100644 --- a/extra/cfdg/gl/gl.factor +++ b/extra/cfdg/gl/gl.factor @@ -4,14 +4,13 @@ USING: kernel alien.c-types namespaces sequences opengl.gl ; IN: cfdg.gl : get-modelview-matrix ( -- alien ) -GL_MODELVIEW_MATRIX 16 "GLdouble" tuck glGetDoublev ; + GL_MODELVIEW_MATRIX 16 "GLdouble" tuck glGetDoublev ; SYMBOL: modelview-matrix-stack -: init-modelview-matrix-stack ( -- ) -V{ } clone modelview-matrix-stack set ; +: init-modelview-matrix-stack ( -- ) V{ } clone modelview-matrix-stack set ; : push-modelview-matrix ( -- ) -get-modelview-matrix modelview-matrix-stack get push ; + get-modelview-matrix modelview-matrix-stack get push ; : pop-modelview-matrix ( -- ) modelview-matrix-stack get pop glLoadMatrixd ; \ No newline at end of file