From 1f1e3f4d599a2d467f937a875eaa3b88a540e81d Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 2 Jul 2015 22:27:32 -0400 Subject: [PATCH] Fix when macro to output all of body --- transforms.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/transforms.scm b/transforms.scm index cf8e50f7..b91df488 100644 --- a/transforms.scm +++ b/transforms.scm @@ -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)