From 9391fc2b059f5a25620db633652d2eb0e2fca930 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 3 Nov 2013 17:05:45 -0700
Subject: [PATCH] gl: Move original glxgears translation to package (gl
 glxgears~).

Add a %trace? variable.
---
 src/gl/glxgears.pkg |  2 +-
 src/gl/glxgears.scm | 10 ++++++----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/gl/glxgears.pkg b/src/gl/glxgears.pkg
index 3bbb654f3..69fb8dcbd 100644
--- a/src/gl/glxgears.pkg
+++ b/src/gl/glxgears.pkg
@@ -4,7 +4,7 @@
 (global-definitions ffi/)
 (global-definitions "./gl")
 
-(define-package (gl glxgears)
+(define-package (gl glxgears~)
   (files "glxgears")
   (parent (gl))
   (import (gl internals)
diff --git a/src/gl/glxgears.scm b/src/gl/glxgears.scm
index 3449b0f7b..dac8a825c 100644
--- a/src/gl/glxgears.scm
+++ b/src/gl/glxgears.scm
@@ -765,7 +765,9 @@ USA.
      (else
       (error "Unknown gl String:" symbol)))))
 
-(define (%trace . args)
-  (declare (ignore args))
-  #;(for-each display args)
-  unspecific)
\ No newline at end of file
+(define %trace? #f)
+
+(define-syntax %trace
+  (syntax-rules ()
+    ((_ ARGS ...)
+     (if %trace? (display ARGS ...)))))
\ No newline at end of file
-- 
2.25.1