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))