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

Extract problems.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-10 21:37:00 +02:00
parent f25a4f924e
commit 5858e8dd86
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mbase.scm
View file

@ -220,8 +220,10 @@
(di5 (ldict-set di4 'destroyed (di5 (ldict-set di4 'destroyed
(filter brmember-destroyed? members))) (filter brmember-destroyed? members)))
(di6 (ldict-set di5 'month (*current-month*))) (di6 (ldict-set di5 'month (*current-month*)))
(di7 (ldict-set di6 'total members))) (di7 (ldict-set di6 'total members))
di7)) (di8 (ldict-set di7 'problems
(find-members-by-predicate mb-arg brmember-has-problems?))))
di8))
(define (members-base-oldest-month mb) (define (members-base-oldest-month mb)
(make-cal-month 2015 1)) (make-cal-month 2015 1))