From 68c8f54d7adc8b82d2d492ebf3ed1978707950e5 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 1 Sep 2016 18:51:27 -0400
Subject: [PATCH] Debugging syntax-rules

---
 scheme/base.sld | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index 6fe303d9..9ea9ba0d 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -1229,6 +1229,8 @@
                   (vars '())
                   (k (lambda (vars)
                        (list _cons (expand-template tmpl vars) #f))))
+;(Cyc-write (list 'PATTERN p 'vars vars) (current-output-port))
+;(Cyc-display "\n"  (current-output-port))
            (let ((v (next-symbol "v.")))
              (list
               _let (list (list v x))
@@ -1354,6 +1356,8 @@
             (else free))))
        (define (expand-template tmpl vars)
          (let lp ((t tmpl) (dim 0))
+;(Cyc-write (list 'TMPL tmpl 'vars vars) (current-output-port))
+;(Cyc-display "\n"  (current-output-port))
            (cond
             ((identifier? t)
              (cond