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

Fix info without loaded ML.

Browse source
This commit is contained in:
Dominik Pantůček 2024-01-02 13:01:57 +01:00
parent 0e82221c16
commit 3b68a9f834
1 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/hackerbase.scm
View file

@ -288,6 +288,7 @@
(define* (check-mailing-list mls name #:pred? (pred? #f)) (define* (check-mailing-list mls name #:pred? (pred? #f))
(define ml (find-mailman-list mls name)) (define ml (find-mailman-list mls name))
(when ml
(let-values (((missing surplus) (let-values (((missing surplus)
(mailman-compare-members ml (mailman-compare-members ml
(mbase-active-emails MB (mbase-active-emails MB
@ -304,7 +305,7 @@
(when (not (null? missing)) (when (not (null? missing))
(print " Missing: " missing)) (print " Missing: " missing))
(when (not (null? surplus)) (when (not (null? surplus))
(print " Outsiders: " surplus))))))) (print " Outsiders: " surplus))))))))
(define (rada-ml-pred? mr) (define (rada-ml-pred? mr)
(or (brmember-council? mr) (or (brmember-council? mr)