From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 21 Sep 2019 06:16:04 +0000 (-0700)
Subject: Fix syntax bug that showed up in syntax-rules.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~47
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=271538af5bdde5267a48e045aedadb0c37dce561;p=mit-scheme.git

Fix syntax bug that showed up in syntax-rules.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index bed0c5655..a819582fa 100644
--- 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 4b5e9deee..896c7b557 100644
--- 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 4bde7b012..d5cf8eb77 100644
--- 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?