From 321995c914fdf4f8a48765b7c736715ed85c482a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 24 Jun 2015 21:44:55 -0400
Subject: [PATCH] (cond) now expands to #f if no clause matches

---
 test2.scm      | 1 +
 transforms.scm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/test2.scm b/test2.scm
index 1da4af31..7f3127bd 100644
--- a/test2.scm
+++ b/test2.scm
@@ -9,4 +9,5 @@
     ;(else #t)
   )
 ;)
+1
 
diff --git a/transforms.scm b/transforms.scm
index 8e754609..ab1d6475 100644
--- a/transforms.scm
+++ b/transforms.scm
@@ -51,7 +51,7 @@
     (cons 'cond
           (lambda (expr rename compare)
             (if (null? (cdr expr))
-                (if #f #f)
+                #f ;(if #f #f)
                 ((lambda (cl)
                    (if (compare (rename 'else) (car cl))
                        (if (pair? (cddr expr))