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

Deal with destroyed using period handling.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 18:43:24 +02:00
parent 2117749d61
commit 7a895930e1
2 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
member-record.scm
View file

@ -226,13 +226,11 @@
(or (member-has-errors? mr) (or (member-has-errors? mr)
(not (is-4digit-prime? (member-id mr))))) (not (is-4digit-prime? (member-id mr)))))
;; Returns true if the member record represents destroyed member. The ;; Returns true if the member record represents non-existing
;; *current-month* is a global parameter from period module. ;; member. The *current-month* is a global parameter from period
;; module.
(define (member-destroyed? mr) (define (member-destroyed? mr)
(let ((destroyed (member-record-info mr 'destroyed #f))) (not (member-existing? mr)))
(and destroyed
(month<? (string->month destroyed)
(*current-month*)))))
;; Generic period-based predicate ;; Generic period-based predicate
(define ((member-period-predicate? key) mr) (define ((member-period-predicate? key) mr)

2
members-base.scm
View file

@ -376,7 +376,7 @@
(let ((pmrs (filter-members-by-predicate mb member-has-problems?))) (let ((pmrs (filter-members-by-predicate mb member-has-problems?)))
(when (not (null? pmrs)) (when (not (null? pmrs))
(newline) (newline)
(print "Member files with errors: " (print "Member files with errors (" (length pmrs) "): "
(string-intersperse (string-intersperse
(map member-file-path pmrs) (map member-file-path pmrs)
", ")))) ", "))))