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

Use lset for ci comparison.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-07 23:45:04 +02:00
parent 6a597d71c8
commit 6cf1cd66d1
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Makefile
View file

@ -234,7 +234,8 @@ ENVIRONMENT-SOURCES=environment.scm ansi.import.scm
environment.o: environment.import.scm environment.o: environment.import.scm
environment.import.scm: $(ENVIRONMENT-SOURCES) environment.import.scm: $(ENVIRONMENT-SOURCES)
MAILMAN-SOURCES=mailman.scm utils.import.scm progress.import.scm MAILMAN-SOURCES=mailman.scm utils.import.scm progress.import.scm \
util-set-list.scm
mailman.o: mailman.import.scm mailman.o: mailman.import.scm
mailman.import.scm: $(MAILMAN-SOURCES) mailman.import.scm: $(MAILMAN-SOURCES)

6
src/mailman.scm
View file

@ -46,7 +46,8 @@
(chicken sort) (chicken sort)
(chicken format) (chicken format)
utils utils
progress) progress
util-set-list)
;; Where does the mailman binaries reside ;; Where does the mailman binaries reside
(define *mailman-bin* (make-parameter "/usr/lib/mailman/bin")) (define *mailman-bin* (make-parameter "/usr/lib/mailman/bin"))
@ -117,7 +118,8 @@
;; Returns #t if the email is in given ml ;; Returns #t if the email is in given ml
(define (email-in-mailman-list? ml email) (define (email-in-mailman-list? ml email)
(if (member email (mailman-list-members ml)) (if (lset-member? (list->lset (mailman-list-members ml) string-ci=?)
email)
#t #t
#f)) #f))