(and-let*): Give #t for an empty body, per srfi-2

spec, previously came out as an empty (begin).

diff --git a/ice-9/and-let-star.scm b/ice-9/and-let-star.scm
index 9bd01d1..6604df1 100644 (file)
--- a/ice-9/and-let-star.scm
+++ b/ice-9/and-let-star.scm
@@ -25,7 +25,9 @@
   (define (expand vars body)
     (cond
      ((null? vars)
-      `(begin ,@body))
+      (if (null? body)
+         #t
+         `(begin ,@body)))
      ((pair? vars)
       (let ((exp (car vars)))
         (cond