Add param:trace-syntax? to help debugging syntax expansion.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 5ebee077bb46b4758887c68253f4144525b45c8e..be6daba25b11a559a6397376bc159fba21f95e97 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4558,6 +4558,7 @@ USA.
          identifier?
          make-syntactic-closure
          new-identifier
+         param:trace-syntax?
          reverse-syntactic-environments
          strip-syntactic-closures
          syntactic-closure-form

diff --git a/src/runtime/syntax-rename.scm b/src/runtime/syntax-rename.scm
index c6b0b9347c4b0bfe98e5e2c1a4570fea46f9ee23..1060a3f5bc1ec3f39e1447cf3ed6ed8a5932f7a4 100644 (file)
--- a/src/runtime/syntax-rename.scm
+++ b/src/runtime/syntax-rename.scm
@@ -108,6 +108,9 @@ USA.
 ;;;; Post processing
 
 (define (post-process-output expression)
+  (if (param:trace-syntax?)
+      (parameterize ((param:pp-uninterned-symbols-by-name? #f))
+       (pp expression)))
   (let ((safe-set (make-strong-eq-hash-table)))
     (compute-substitution expression
                          (lambda (rename original)

diff --git a/src/runtime/syntax.scm b/src/runtime/syntax.scm
index cd191b70df5f49415573d2a048977ab25d941708..b82b3310e6f827fc4e3855e7dfac0fe943e1fd05 100644 (file)
--- a/src/runtime/syntax.scm
+++ b/src/runtime/syntax.scm
@@ -43,6 +43,9 @@ USA.
 \f
 ;;;; Top level
 
+(define-deferred param:trace-syntax?
+  (make-settable-parameter #f))
+
 (define (syntax form environment)
   (syntax* (list form) environment))