From aa77252310647129ffaaa8e7fb37e62721b5239c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 16 Dec 2017 18:46:26 -0500
Subject: [PATCH] Use a-env as backing env for letrec-syntax

---
 scheme/eval.sld | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/eval.sld b/scheme/eval.sld
index 896a39b5..3caa8e12 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -485,7 +485,8 @@
      (map (lambda (v)
             (list 'macro (cadr v)))
           defined-macros)
-     (create-environment '() '())))
+     a-env))
+     ;(create-environment '() '())))
 
          (expanded (expand exp macro-env rename-env))
          ;(expanded (expand exp a-env rename-env))