Fix syntax bug that showed up in syntax-rules.

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index bed0c56558ebeeea6489b70d0648d4b113cbacb0..a819582fa8dd26143a8a653212d266e7e7e4797d 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4680,7 +4680,6 @@ USA.
          subform-select)
   (export (runtime syntax low)
          reclassify
-         rename-id
          with-error-context)
   (export (runtime syntax parser)
          with-error-context))

diff --git a/src/runtime/syntax-low.scm b/src/runtime/syntax-low.scm
index 4b5e9deee1c5c41b607d242a96f57ef991990882..896c7b5570808b51829da5916c0ca1df7f9ae0e5 100644 (file)
--- a/src/runtime/syntax-low.scm
+++ b/src/runtime/syntax-low.scm
@@ -91,7 +91,7 @@ USA.
       (let ((p (assq id renames)))
        (if p
            (cdr p)
-           (let ((rename (rename-id id closing-senv)))
+           (let ((rename (close-syntax id closing-senv)))
              (set! renames (cons (cons id rename) renames))
              rename))))))
 

diff --git a/src/runtime/syntax.scm b/src/runtime/syntax.scm
index 4bde7b012684217fc58573344f9d03e937013eb7..d5cf8eb77864075250f32f490fe47c7f437556ca 100644 (file)
--- a/src/runtime/syntax.scm
+++ b/src/runtime/syntax.scm
@@ -141,11 +141,6 @@ USA.
           (pair? form)
           (identifier? form))))
 
-;; Renaming for er-macro-transformer.
-;; Required for uniqueness and proper lookup.
-(define (rename-id id senv)
-  (%make-syntactic-closure senv '() id))
-
 (define-record-type <syntactic-closure>
     (%make-syntactic-closure senv free form)
     syntactic-closure?