Show member files with issues.

bbstool.scm

@@ -146,7 +146,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	 ;; (print fees)
 	 (print "Total fees: " (foldl + 0 fees))
 	 )
-       (print-members-base-table MB))
+	 (print-members-base-table MB)
+	 )
    (newline))
   ((print-stats)
    (newline)

member-record.scm

@@ -31,6 +31,7 @@
  (
   make-member-record
 
+  member-file-path
   member-record-input-file
 
   member-record-set
@@ -120,6 +121,10 @@
 				   (cadr args))
 			     pairs)))))))
 
+ ;; Convenience accessor
+ (define (member-file-path mr)
+   (dict-ref mr 'file-path))
+ 
  ;; Returns opened input file for this record (used by parser).
  (define (member-record-input-file mr)
    (open-input-file

members-base.scm

@@ -371,7 +371,14 @@
        #:ansi #t
        #:row-border #t
        #:col-border #t
-       ))))
+       )))
+   (let ((pmrs (filter-members-by-predicate mb member-has-issues?)))
+     (when (not (null? pmrs))
+       (newline)
+       (print "Member files with issues: "
+	      (string-intersperse
+	       (map member-file-path pmrs)
+	       ", ")))))
 
  ;; Prints the stats in format used by gnuplot.
  (define (print-members-base-stats ms)