brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Cond is not local scope.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 17:51:30 +02:00
parent e108c06a98
commit 33d18216f0
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/bbstool.scm
View file

@ -285,18 +285,18 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(mailman-sync-members internal-ml (members-base-active-emails MB)) (mailman-sync-members internal-ml (members-base-active-emails MB))
(print "Mailman synchronization disabled with manually specified current month."))) (print "Mailman synchronization disabled with manually specified current month.")))
((mlcheck) ((mlcheck)
(define-values (missing surplus) (let-values (((missing surplus)
(mailman-compare-members internal-ml (mailman-compare-members internal-ml
(membars-base-active-emails MB))) (membars-base-active-emails MB))))
(if (and (null? missing) (if (and (null? missing)
(null? surplus)) (null? surplus))
(print "Internal mailing list membership in sync.") (print "Internal mailing list membership in sync.")
(let () (let ()
(print "Internal mailing list:") (print "Internal mailing list:")
(when (not (null? missing)) (when (not (null? missing))
(print " Missing: " missing)) (print " Missing: " missing))
(when (not (null? surplus)) (when (not (null? surplus))
(print " Outsiders: " surplus))))) (print " Outsiders: " surplus))))))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))