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)
(apply cards-export MB (-fname-)))
((problems)
(let loop ((mb MB))
(when (not (null? mb))
(when (or (member-has-problems? (car mb))
(member-has-highlights? (car mb)))
(newline)
(print-member-table (car mb))
(print-member-source (car mb)))
(loop (cdr mb)))))
(let ((num (let loop ((mb MB)
(num 0))
(if (null? mb)
num
(loop (cdr mb)
(if (or (member-has-problems? (car mb))
(member-has-highlights? (car 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)
(newline)
(print-members-fees-table MB))