Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +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? ,@(map cc (cdr exp)))) ;; TODO: need to splice?
((set!? exp) `(set! ,(set!->var exp) ((set!? exp) `(set! ,(set!->var exp)
,(cc (set!->exp 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 `(let
,(cadr exp) ,(cadr exp)
,@(convert ,@(convert
(caddr exp) (caddr exp)
self-var 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))) (filter (lambda (v) (not (member v (let->vars exp)))) free-var-lst)))
) )
((lambda? exp) (error `(Unexpected lambda in closure-convert ,exp))) ((lambda? exp) (error `(Unexpected lambda in closure-convert ,exp)))