(cond) now expands to #f if no clause matches

2025-05-23 20:15:05 +02:00 · 2015-06-24 21:44:55 -04:00 · 2015-06-24 21:44:55 -04:00 · 321995c914
commit 321995c914
parent 83e0a6e662
2 changed files with 2 additions and 1 deletions
--- a/test2.scm
+++ b/test2.scm
@ -9,4 +9,5 @@
    ;(else #t)
  )
 ;)
+1

--- a/transforms.scm
+++ b/transforms.scm
@ -51,7 +51,7 @@
    (cons 'cond
          (lambda (expr rename compare)
            (if (null? (cdr expr))
-                (if #f #f)
+                #f ;(if #f #f)
                ((lambda (cl)
                   (if (compare (rename 'else) (car cl))
                       (if (pair? (cddr expr))