Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use a-env as backing env for letrec-syntax

Browse source
This commit is contained in:
Justin Ethier 2017-12-16 18:46:26 -05:00
parent ee7cf5a435
commit aa77252310
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/eval.sld
View file

@ -485,7 +485,8 @@
(map (lambda (v) (map (lambda (v)
(list 'macro (cadr v))) (list 'macro (cadr v)))
defined-macros) defined-macros)
(create-environment '() '()))) a-env))
;(create-environment '() '())))
(expanded (expand exp macro-env rename-env)) (expanded (expand exp macro-env rename-env))
;(expanded (expand exp a-env rename-env)) ;(expanded (expand exp a-env rename-env))