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 3bbb654f346e326a275b3689dcab7edf0972d86b..69fb8dcbdba4a980e73678418067c2b298383974 100644 (file)
--- 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 3449b0f7b7f8722562d967f46838bd6cda1e27cd..dac8a825c423181dd253e33d1cbe7ffe1dc48454 100644 (file)
--- 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