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

Bugfix

Browse source
This commit is contained in:
Justin Ethier 2016-05-17 00:33:20 -04:00
parent 3bcf956a29
commit 76ff1d5a37
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -245,7 +245,7 @@
((quote? exp) exp)
((define? exp)
`(define ,(opt:contract (define->var exp))
,(opt:contract (define->exp exp))))
,@(opt:contract (define->exp exp))))
((set!? exp)
`(set! ,(opt:contract (set!->var exp))
,(opt:contract (set!->exp exp))))