From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 26 Feb 2012 12:23:06 +0000 (-0800)
Subject: Fix bug: missed one of the places that needed env->senv conversion.
X-Git-Tag: release-9.2.0~280
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=68f5c1e2ca2a97ef3fa677232c36e6441637fa86;p=mit-scheme.git

Fix bug: missed one of the places that needed env->senv conversion.
---

diff --git a/src/runtime/syntax-transforms.scm b/src/runtime/syntax-transforms.scm
index 906ceb56c..7afc5c96c 100644
--- a/src/runtime/syntax-transforms.scm
+++ b/src/runtime/syntax-transforms.scm
@@ -35,19 +35,21 @@ USA.
   (make-expander-item
    (lambda (form use-environment)
      (close-syntax (transformer form use-environment)
-		   closing-environment))))
+		   (->syntactic-environment closing-environment)))))
 
 (define (rsc-macro-transformer->expander transformer closing-environment)
   (make-expander-item
    (lambda (form use-environment)
-     (close-syntax (transformer form closing-environment)
+     (close-syntax (transformer form
+				(->syntactic-environment closing-environment))
 		   use-environment))))
 
 (define (er-macro-transformer->expander transformer closing-environment)
   (make-expander-item
    (lambda (form use-environment)
      (close-syntax (transformer form
-				(make-er-rename closing-environment)
+				(make-er-rename
+				 (->syntactic-environment closing-environment))
 				(make-er-compare use-environment))
 		   use-environment))))