support 'else' syntax in cond

2014-02-08 02:55:17 +09:00 · 2014-02-08 02:55:17 +09:00 · f051de77c5
parent 15e95f82da
commit f051de77c5
1 changed files with 5 additions and 3 deletions
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@ -53,9 +53,11 @@
       (let ((clauses (cdr expr)))
         (if (null? clauses)
             #f
+             (if (compare (r 'else) (caar clauses))
+                 (cons (r 'begin) (cdar clauses))
                 (list (r 'if) (caar clauses)
                       (cons (r 'begin) (cdar clauses))
-                   (cons (r 'cond) (cdr clauses))))))))
+                       (cons (r 'cond) (cdr clauses)))))))))

  (define-syntax and
    (er-macro-transformer