Regular predicates.

This commit is contained in:
Dominik Pantůček 2023-04-11 22:32:07 +02:00
parent bf2b8ef23a
commit 4bd6837e08
6 changed files with 51 additions and 51 deletions

View file

@ -45,7 +45,7 @@
(let* ((rmb (filter-members-by-predicate
mb
(lambda (mr)
(and (member-active? mr)
(and (brmember-active? mr)
(ldict-contains? (ldict-ref mr 'info) type)
(not (null? (ldict-ref (ldict-ref mr 'info) type)))))))
(recs (map (lambda (mr)