; 0-clause BSD by Bill Schottstaedt from S7 source repo: s7test.scm
(define-library (srfi srfi-2)
(export and-let*)
(begin

(define-macro (and-let* vars . body)
  `(let () (and ,@(map (lambda (v) `(define ,@v)) vars) (begin ,@body))))

) ; end of begin
) ; end of define-library

