Fix new problems iterator.

src/hackerbase.scm

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