Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Closure convert (let) local values

Browse source
This commit is contained in:
Justin Ethier 2018-11-13 18:01:54 -05:00
parent c4f75486b6
commit d40dc538d9
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/cyclone/cps-optimizations.sld
View file

@ -1757,7 +1757,12 @@
;; Special case now with local var redux ;; Special case now with local var redux
((tagged-list? 'let exp) ((tagged-list? 'let exp)
`(let `(let
,(cadr exp) ,(map
(lambda (var/val)
(let ((var (car var/val))
(val (cadr var/val)))
`(,var ,(cc val))))
(cadr exp))
,(convert ,(convert
(caddr exp) (caddr exp)
self-var self-var