From 271538af5bdde5267a48e045aedadb0c37dce561 Mon Sep 17 00:00:00 2001 From: Chris Hanson 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 (%make-syntactic-closure senv free form) syntactic-closure? -- 2.25.1