Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-11 23:07:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix when macro to output all of body

Browse source
This commit is contained in:
Justin Ethier 2015-07-02 22:27:32 -04:00
parent c8537e0e12
commit 1f1e3f4d59
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
transforms.scm
View file

@ -81,7 +81,7 @@
(if (null? (cdr exp)) (error "empty when" exp))
(if (null? (cddr exp)) (error "no when body" exp))
`(if ,(cadr exp)
((lambda () ,(caddr exp)))
((lambda () ,@(cddr exp)))
#f)))
(cons 'cond
(lambda (expr rename compare)