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

Rename meta predicates.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:27:27 +02:00
parent 3ef6c0b628
commit bf2b8ef23a
4 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/members-print.scm
View file

@ -283,7 +283,7 @@
#:row-border #t
#:col-border #t
)))
(let ((pmrs (filter-members-by-predicate mb member-has-problems?)))
(let ((pmrs (filter-members-by-predicate mb brmember-has-problems?)))
(when (not (null? pmrs))
(newline)
(print "Member files with errors (" (length pmrs) "): "
@ -291,8 +291,8 @@
(map brmember-file-path pmrs)
", "))))
(let ((pmrs (filter-members-by-predicate mb (lambda (mr)
(and (member-has-highlights? mr)
(not (member-has-problems? mr)))))))
(and (brmember-has-highlights? mr)
(not (brmember-has-problems? mr)))))))
(when (not (null? pmrs))
(newline)
(print "Member files with issues: "