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

Added clarifying comments

Browse source
This commit is contained in:
Justin Ethier 2018-11-13 12:57:55 -05:00
parent cde576aaa3
commit 89e633db26
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1754,12 +1754,15 @@
,@(map cc (cdr exp)))) ;; TODO: need to splice?
((set!? exp) `(set! ,(set!->var exp)
,(cc (set!->exp exp))))
((tagged-list? 'let exp) ;; Special case now with local var redux
;; Special case now with local var redux
((tagged-list? 'let exp)
`(let
,(cadr exp)
,@(convert
(caddr exp)
self-var
;; Do not closure convert the let's variables because
;; the previous code guarantees they are locals
(filter (lambda (v) (not (member v (let->vars exp)))) free-var-lst)))
)
((lambda? exp) (error `(Unexpected lambda in closure-convert ,exp)))