Return as lists.

This commit is contained in:
Dominik Pantůček 2023-04-08 17:52:34 +02:00
parent c7b45b7cf7
commit 41080d06c7

View file

@ -173,7 +173,8 @@
(emails (list->lset emails))
(surplus (lset-subtract mlemails emails))
(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
(define (mailman-sync-members ml emails)