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
(lambda (expr rename compare)
(if (null? (cdr expr))
#f
(if #f #f)
((lambda (cl)
(if (compare (rename 'else) (car cl))
(if (pair? (cddr expr))