diff --git a/test2.scm b/test2.scm index 1da4af31..7f3127bd 100644 --- a/test2.scm +++ b/test2.scm @@ -9,4 +9,5 @@ ;(else #t) ) ;) +1 diff --git a/transforms.scm b/transforms.scm index 8e754609..ab1d6475 100644 --- 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))