From 68f5c1e2ca2a97ef3fa677232c36e6441637fa86 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 26 Feb 2012 04:23:06 -0800 Subject: [PATCH] Fix bug: missed one of the places that needed env->senv conversion. --- src/runtime/syntax-transforms.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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)))) -- 2.25.1