Making cond with no matching clauses return #<unspecified>.

This commit is contained in:
Alex Shinn 2013-11-23 15:04:49 +09:00
parent bc14b4b9ec
commit e1e7508d8d

View file

@ -128,7 +128,7 @@
(er-macro-transformer (er-macro-transformer
(lambda (expr rename compare) (lambda (expr rename compare)
(if (null? (cdr expr)) (if (null? (cdr expr))
#f (if #f #f)
((lambda (cl) ((lambda (cl)
(if (compare (rename 'else) (car cl)) (if (compare (rename 'else) (car cl))
(if (pair? (cddr expr)) (if (pair? (cddr expr))