From e1e7508d8dde26c78cdf59390cf26c8464381c5f Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 23 Nov 2013 15:04:49 +0900
Subject: [PATCH] Making cond with no matching clauses return #<unspecified>.

---
 lib/init-7.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/init-7.scm b/lib/init-7.scm
index 35971cba..8b4ea866 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -128,7 +128,7 @@
   (er-macro-transformer
    (lambda (expr rename compare)
      (if (null? (cdr expr))
-         #f
+         (if #f #f)
          ((lambda (cl)
             (if (compare (rename 'else) (car cl))
                 (if (pair? (cddr expr))