From 3fe213f8f13159c99a26c1aff6316ec8400ea0d5 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Wed, 25 Aug 2004 00:46:59 +0000
Subject: [PATCH] (and-let*): Give #t for an empty body, per srfi-2 spec,
 previously came out as an empty (begin).

---
 ice-9/and-let-star.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ice-9/and-let-star.scm b/ice-9/and-let-star.scm
index 9bd01d138..6604df163 100644
--- 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
-- 
2.20.1