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

Get all files with problems.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-27 17:39:41 +02:00
parent 0a688fc057
commit fc6c67004e
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
member-record.scm
View file

@ -43,6 +43,7 @@
member-record-info
member-missing-keys
member-highlights?
member-destroyed?
member-suspended?
@ -194,6 +195,10 @@
(if v acc (cons k acc)))
(dict-ref mr 'info)))
;; True if there are any source highlights
(define (member-highlights? mr)
(dict-has-key? mr 'highlights))
;; Returns true if the member record represents destroyed member. The
;; *current-month* is a global parameter from period module.
(define (member-destroyed? mr)