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

Report no problems if no problems.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 23:05:08 +02:00
parent 3429790dbe
commit aa7a340d51
1 changed files with 16 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

24
bbstool.scm
View file

@ -176,14 +176,22 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
((gencards) ((gencards)
(apply cards-export MB (-fname-))) (apply cards-export MB (-fname-)))
((problems) ((problems)
(let loop ((mb MB)) (let ((num (let loop ((mb MB)
(when (not (null? mb)) (num 0))
(when (or (member-has-problems? (car mb)) (if (null? mb)
(member-has-highlights? (car mb))) num
(newline) (loop (cdr mb)
(print-member-table (car mb)) (if (or (member-has-problems? (car mb))
(print-member-source (car mb))) (member-has-highlights? (car mb)))
(loop (cdr mb))))) (let ()
(newline)
(print-member-table (car mb))
(print-member-source (car mb))
(add1 num))
num))))))
(when (= num 0)
(newline)
(print "No problems found."))))
((fees) ((fees)
(newline) (newline)
(print-members-fees-table MB)) (print-members-fees-table MB))