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

Unify finders naming.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-13 20:02:28 +02:00
parent 25d0a806ce
commit 4893d1e7d5
6 changed files with 29 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/members-print.scm
View file

@ -225,14 +225,14 @@
#:row-border #t
#:col-border #t
)))
(let ((pmrs (filter-members-by-predicate mb brmember-has-problems?)))
(let ((pmrs (find-members-by-predicate mb brmember-has-problems?)))
(when (not (null? pmrs))
(newline)
(print "Member files with errors (" (length pmrs) "): "
(string-intersperse
(map brmember-file-path pmrs)
", "))))
(let ((pmrs (filter-members-by-predicate mb (lambda (mr)
(let ((pmrs (find-members-by-predicate mb (lambda (mr)
(and (brmember-has-highlights? mr)
(not (brmember-has-problems? mr)))))))
(when (not (null? pmrs))
@ -308,10 +308,10 @@
)))
(sort
(if destroyed?
(members-base-members MB)
(mbase-members MB)
(filter (lambda (mr)
(not (brmember-destroyed? mr)))
(members-base-members MB)))
(mbase-members MB)))
brmember<?)))
(balances (map (lambda (m)
(list-ref m 6))