Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 03:36:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added a TODO

Browse source
This commit is contained in:
Justin Ethier 2018-01-17 16:53:23 -05:00
parent 6c456ff10d
commit 32361ddced
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/eval.sld
View file

@ -904,8 +904,12 @@
(a-lookup
(map
(lambda (a)
(let ((a/r (cons a (Cyc-er-rename use-env env))))
(env:define-variable! (cdr a/r) (car a/r) rename-env)
(let ((a/r (cons a (gensym a))))
I think we want to pass these a-lookup bindings to Cyc-er-rename and
use them to rename any locals. ideally want this stored with macro def
for define-syntax. I think we get it for free with let*-syntax
;; TODO: define needed?
;(env:define-variable! (cdr a/r) (car a/r) rename-env)
a/r))
args))
(new-formals