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

Fix members base info table.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 18:56:22 +02:00
parent 7a895930e1
commit c35d6585cc
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
members-base.scm
View file

@ -260,9 +260,8 @@
sep))) sep)))
;; Returns dictionary with statistics about the members base. ;; Returns dictionary with statistics about the members base.
(define (members-base-info mb-arg) (define (members-base-info mb)
(let* ((mb (filter-members-by-predicate mb-arg member-existing?)) (let* ((di0 (make-dict))
(di0 (make-dict))
(di1 (dict-set di0 'invalid (di1 (dict-set di0 'invalid
(filter-members-by-predicate mb (filter-members-by-predicate mb
(compose not is-4digit-prime? member-id)))) (compose not is-4digit-prime? member-id))))