From e1e7508d8dde26c78cdf59390cf26c8464381c5f Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 23 Nov 2013 15:04:49 +0900 Subject: [PATCH] Making cond with no matching clauses return #. --- 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))