diff --git a/extra/opengl/opengl.factor b/extra/opengl/opengl.factor index 2f3b87827a..221b866a15 100644 --- a/extra/opengl/opengl.factor +++ b/extra/opengl/opengl.factor @@ -135,7 +135,6 @@ IN: opengl : with-framebuffer ( id quot -- ) GL_FRAMEBUFFER_EXT rot glBindFramebufferEXT - [ call ] [ GL_FRAMEBUFFER_EXT 0 glBindFramebufferEXT ] [ ] cleanup ; inline : bind-texture-unit ( id target unit -- ) @@ -342,7 +341,7 @@ PREDICATE: gl-shader fragment-shader (fragment-shader?) ; delete-gl-program-only ; : with-gl-program ( program quot -- ) - swap glUseProgram [ call ] [ 0 glUseProgram ] [ ] cleanup ; inline + swap glUseProgram [ 0 glUseProgram ] [ ] cleanup ; inline PREDICATE: integer gl-program (gl-program?) ;