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

Fix (set!)

Browse source
This commit is contained in:
Justin Ethier 2018-11-12 17:06:35 -05:00
parent e31b357f4c
commit 82f9909951
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cps-opt-local-var-redux.scm
View file

@ -38,8 +38,8 @@
,@(map scan (define->exp exp))))
((set!? exp)
`(set!
,(set!->var exp)
,(set!->exp exp)))
,(scan (set!->var exp))
,(scan (set!->exp exp))))
((if? exp)
`(if ,(scan (if->condition exp))
,(scan (if->then exp))
@ -187,7 +187,7 @@
((lambda
(lp$80$87$681)
(Cyc-seq
(set-cell!
(set!
lp$80$87$681
(lambda
(k$1073 i$88$682 first$89$683 row$90$684)