From 33d18216f07cf341cc12725923d9f651391fcaab Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 8 Apr 2023 17:51:30 +0200 Subject: [PATCH] Cond is not local scope. --- src/bbstool.scm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/src/bbstool.scm b/src/bbstool.scm index bc06a94..f73009a 100644 --- a/src/bbstool.scm +++ b/src/bbstool.scm @@ -285,18 +285,18 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. (mailman-sync-members internal-ml (members-base-active-emails MB)) (print "Mailman synchronization disabled with manually specified current month."))) ((mlcheck) - (define-values (missing surplus) - (mailman-compare-members internal-ml - (membars-base-active-emails MB))) - (if (and (null? missing) - (null? surplus)) - (print "Internal mailing list membership in sync.") - (let () - (print "Internal mailing list:") - (when (not (null? missing)) - (print " Missing: " missing)) - (when (not (null? surplus)) - (print " Outsiders: " surplus))))) + (let-values (((missing surplus) + (mailman-compare-members internal-ml + (membars-base-active-emails MB)))) + (if (and (null? missing) + (null? surplus)) + (print "Internal mailing list membership in sync.") + (let () + (print "Internal mailing list:") + (when (not (null? missing)) + (print " Missing: " missing)) + (when (not (null? surplus)) + (print " Outsiders: " surplus)))))) (else (print "Nothing to do."))