Fix bug: missed one of the places that needed env->senv conversion.
authorChris Hanson <org/chris-hanson/cph>
Sun, 26 Feb 2012 12:23:06 +0000 (04:23 -0800)
committerChris Hanson <org/chris-hanson/cph>
Sun, 26 Feb 2012 12:23:06 +0000 (04:23 -0800)
src/runtime/syntax-transforms.scm

index 906ceb56c304675c10235f9123887940ee43e7d3..7afc5c96c718143579a9ffd52892c736eadc9cc1 100644 (file)
@@ -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))))