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

Return as lists.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 17:52:34 +02:00
parent c7b45b7cf7
commit 41080d06c7
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/mailman.scm
View file

@ -173,7 +173,8 @@
(emails (list->lset emails)) (emails (list->lset emails))
(surplus (lset-subtract mlemails emails)) (surplus (lset-subtract mlemails emails))
(missing (lset-subtract emails mlemails))) (missing (lset-subtract emails mlemails)))
(values missing surplus))) (values (lset->list missing)
(lset->list surplus))))
;; 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)