From 271538af5bdde5267a48e045aedadb0c37dce561 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 20 Sep 2019 23:16:04 -0700
Subject: [PATCH] Fix syntax bug that showed up in syntax-rules.
---
src/runtime/runtime.pkg | 1 -
src/runtime/syntax-low.scm | 2 +-
src/runtime/syntax.scm | 5 -----
3 files changed, 1 insertion(+), 7 deletions(-)
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?
--
2.25.1