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

Switch to let.

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

18
src/mailman.scm
View file

@ -177,14 +177,14 @@
;; Ensures given ML subscribers are exactly what is in emails list ;; Ensures given ML subscribers are exactly what is in emails list
(define (mailman-sync-members ml emails) (define (mailman-sync-members ml emails)
(define-values (missing surplus) (let-values (((missing surplus)
(mailman-compare-members ml emails)) (mailman-compare-members ml emails)))
(define listname (mailman-list-name ml)) (let ((listname (mailman-list-name ml)))
(let loop ((emails missing)) (let loop ((emails missing))
(add-email-to-mailman-list listname (car emails)) (add-email-to-mailman-list listname (car emails))
(loop (cdr emails))) (loop (cdr emails)))
(let loop ((emails surplus)) (let loop ((emails surplus))
(remove-email-from-mailman-list listname (car emails)) (remove-email-from-mailman-list listname (car emails))
(loop (cdr loop)))) (loop (cdr loop))))))
) )