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

Add support for pred.

Browse source
This commit is contained in:
Dominik Pantůček 2023-11-16 18:56:33 +01:00
parent aa5d9383aa
commit db9f98dc7e
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/hackerbase.scm
View file

@ -291,11 +291,14 @@
(char-upcase (car l)) (char-upcase (car l))
(map char-downcase (cdr l)))))) (map char-downcase (cdr l))))))
(define (check-mailing-list mls name) (define* (check-mailing-list mls name #:pred? (pred? #f))
(define ml (find-mailman-list mls name)) (define ml (find-mailman-list mls name))
(let-values (((missing surplus) (let-values (((missing surplus)
(mailman-compare-members ml (mailman-compare-members ml
(mbase-active-emails MB #:suspended #t)))) (mbase-active-emails MB
#:suspended #t
#:pred? pred?
))))
(if (null? (cdr ml)) (if (null? (cdr ml))
(print "Skipping ML check - not loaded") (print "Skipping ML check - not loaded")
(if (and (null? missing) (if (and (null? missing)