Return as lists.
This commit is contained in:
parent
c7b45b7cf7
commit
41080d06c7
1 changed files with 2 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue