From 7b7987f4767f380adabb42bd50804cb550d05b37 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sun, 27 Jan 2008 21:52:14 -0800
Subject: [PATCH] Remove redundant [ call ] from cleanups in opengl.factor.
 Back out graft*/ungraft* cleanup for performance

---
 extra/opengl/opengl.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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?) ;