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

Only store mark if we actually transformed code

Browse source
This commit is contained in:
Justin Ethier 2019-09-19 22:02:20 -04:00
parent fd72c918b6
commit 6ea8369193
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1890,9 +1890,8 @@
(cond
((and (adbv:mutated-by-set? var)
(ast:lambda? (adbv:assigned-value var)))
(mark-mutated-loop-var (car (ast:lambda-formals->list (car exp))))
(trace:error `(found loop var ,(car (ast:lambda-formals->list (car exp)))))
#t)
(car (ast:lambda-formals->list (car exp))))
(else #f)))))
(else #f)))
(result
@ -1975,6 +1974,7 @@
(set-cell-exp (cadr inner-body))
(set-clo (caddr set-cell-exp))
)
(mark-mutated-loop-var replace)
(set-car! (cdr inner-body) #f) ; '%Cyc-noop ;; Don't do the set
(set-cdr! outer-body `((cell ,set-clo))) ;; Relocate the closure
result