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

6
src/bbstool.scm
View file

@ -285,9 +285,9 @@ 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.")
@ -296,7 +296,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(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."))