Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +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)))) ,@(map scan (define->exp exp))))
((set!? exp) ((set!? exp)
`(set! `(set!
,(set!->var exp) ,(scan (set!->var exp))
,(set!->exp exp))) ,(scan (set!->exp exp))))
((if? exp) ((if? exp)
`(if ,(scan (if->condition exp)) `(if ,(scan (if->condition exp))
,(scan (if->then exp)) ,(scan (if->then exp))
@ -187,7 +187,7 @@
((lambda ((lambda
(lp$80$87$681) (lp$80$87$681)
(Cyc-seq (Cyc-seq
(set-cell! (set!
lp$80$87$681 lp$80$87$681
(lambda (lambda
(k$1073 i$88$682 first$89$683 row$90$684) (k$1073 i$88$682 first$89$683 row$90$684)