From aa7a340d51bb40c0f2f5c4d2135ff14cd4d503ba Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Fri, 31 Mar 2023 23:05:08 +0200 Subject: [PATCH] Report no problems if no problems. --- bbstool.scm | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) diff --git a/bbstool.scm b/bbstool.scm index f2a90bb..a6ec1b6 100644 --- a/bbstool.scm +++ b/bbstool.scm @@ -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))