Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 19:56: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 (a-lookup
(map (map
(lambda (a) (lambda (a)
(let ((a/r (cons a (Cyc-er-rename use-env env)))) (let ((a/r (cons a (gensym a))))
(env:define-variable! (cdr a/r) (car a/r) rename-env) 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)) a/r))
args)) args))
(new-formals (new-formals