From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 8 Jan 2016 18:59:31 +0000 (-0700)
Subject: gl: glx:swap-buffers already does a gl:flush.
X-Git-Tag: mit-scheme-pucked-9.2.12~375
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6f0f2053110ace920772f402447392b2dece84d3;p=mit-scheme.git

gl: glx:swap-buffers already does a gl:flush.
---

diff --git a/src/gl/gl-glx.scm b/src/gl/gl-glx.scm
index 26d3cd2ca..aaf4d9c62 100644
--- a/src/gl/gl-glx.scm
+++ b/src/gl/gl-glx.scm
@@ -269,7 +269,6 @@ USA.
       (gl:clear 'COLOR-BUFFER 'DEPTH-BUFFER)
       (glx-viewport-draw widget)
       (glx:swap-buffers widget)
-      (gl:flush)
       #t)))
 
 (define-generic glx-viewport-draw (widget))
diff --git a/src/gl/gl-glxgears.scm b/src/gl/gl-glxgears.scm
index f725055ee..4915f71ad 100644
--- a/src/gl/gl-glxgears.scm
+++ b/src/gl/gl-glxgears.scm
@@ -256,9 +256,7 @@ USA.
     (lambda ()
       (draw widget)
       (%trace2 "swap-buffers")
-      (glx:swap-buffers widget)
-      (%trace2 "flush")
-      (gl:flush)))
+      (glx:swap-buffers widget)))
   (if (and (glxgears-demo-animate? widget)
 	   (glxgears-demo-report-fps? widget))
       (let ((now (glxgears-demo-frame-start widget))