From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 4 Nov 2013 00:05:45 +0000 (-0700)
Subject: gl: Move original glxgears translation to package (gl glxgears~).
X-Git-Tag: mit-scheme-pucked-9.2.12~435
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9391fc2b059f5a25620db633652d2eb0e2fca930;p=mit-scheme.git

gl: Move original glxgears translation to package (gl glxgears~).

Add a %trace? variable.
---

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