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

Fix new problems iterator.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-18 15:50:11 +02:00
parent fd15ff2821
commit a1796f65d5
1 changed files with 13 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/hackerbase.scm
View file

@ -293,22 +293,19 @@
(apply cards-export MB (-fname-)) (apply cards-export MB (-fname-))
(print "Cards export disabled with manually specified current month."))) (print "Cards export disabled with manually specified current month.")))
((problems) ((problems)
(let ((num (let loop ((mb (mbase-members MB)) (let ((mrs (find-members-by-predicate MB (lambda (mr)
(num 0)) (or (brmember-has-problems? mr)
(if (null? mb) (brmember-has-highlights? mr))))))
num (cond ((null? mrs)
(loop (cdr mb) (newline)
(if (or (brmember-has-problems? (car mb)) (print "No problems found."))
(brmember-has-highlights? (car mb))) (else
(let () (let loop ((mrs mrs))
(newline) (when (not (null? mrs))
(print-member-table (car mb)) (newline)
(print-member-source (car mb)) (print-member-table (car mrs))
(add1 num)) (print-member-source (car mrs))
num)))))) (loop (cdr mrs))))))))
(when (= num 0)
(newline)
(print "No problems found."))))
((fees) ((fees)
(newline) (newline)
(print-members-fees-table MB (-show-destroyed-))) (print-members-fees-table MB (-show-destroyed-)))