steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove redundant [ call ] from cleanups in opengl.factor. Back out graft*/ungraft* cleanup for performance

db4
Joe Groff 2008-01-27 21:52:14 -08:00
parent 8e2cc99d4e
commit 7b7987f476
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/opengl/opengl.factor
View File

@ -135,7 +135,6 @@ IN: opengl
: with-framebuffer ( id quot -- ) : with-framebuffer ( id quot -- )
GL_FRAMEBUFFER_EXT rot glBindFramebufferEXT GL_FRAMEBUFFER_EXT rot glBindFramebufferEXT
[ call ]
[ GL_FRAMEBUFFER_EXT 0 glBindFramebufferEXT ] [ ] cleanup ; inline [ GL_FRAMEBUFFER_EXT 0 glBindFramebufferEXT ] [ ] cleanup ; inline
: bind-texture-unit ( id target unit -- ) : bind-texture-unit ( id target unit -- )
@ -342,7 +341,7 @@ PREDICATE: gl-shader fragment-shader (fragment-shader?) ;
delete-gl-program-only ; delete-gl-program-only ;
: with-gl-program ( program quot -- ) : with-gl-program ( program quot -- )
swap glUseProgram [ call ] [ 0 glUseProgram ] [ ] cleanup ; inline swap glUseProgram [ 0 glUseProgram ] [ ] cleanup ; inline
PREDICATE: integer gl-program (gl-program?) ; PREDICATE: integer gl-program (gl-program?) ;