From 6f0f2053110ace920772f402447392b2dece84d3 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 8 Jan 2016 11:59:31 -0700
Subject: [PATCH] gl: glx:swap-buffers already does a gl:flush.

---
 src/gl/gl-glx.scm      | 1 -
 src/gl/gl-glxgears.scm | 4 +---
 2 files changed, 1 insertion(+), 4 deletions(-)

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))
-- 
2.25.1