Print both errors and problems.

bbstool.scm

@@ -173,7 +173,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
   ((problems)
    (let loop ((mb MB))
      (when (not (null? mb))
-       (when (member-has-issues? (car mb))
+       (when (or (member-has-issues? (car mb))
+		 (member-has-highlights? (car mb)))
 	 (newline)
 	 (print-member-table (car mb))
 	 (print-member-source (car mb)))

member-record.scm

@@ -44,8 +44,8 @@
 
   member-record-info
   member-missing-keys
-  member-highlights?
-  member-has-issues?
+  member-has-highlights?
+  member-has-problems?
 
   member-destroyed?
   member-suspended?
@@ -205,7 +205,7 @@
 		(dict-ref mr 'info)))
 
  ;; True if there are any source highlights
- (define (member-highlights? mr)
+ (define (member-has-highlights? mr)
    (dict-has-key? mr 'highlights))
 
  ;; Returns true if there is at least one highlight of given type
@@ -222,7 +222,7 @@
    (member-highlights-has-type? mr 'error))
 
  ;; True if member record is OK
- (define (member-has-issues? mr)
+ (define (member-has-problems? mr)
    (or (member-has-errors? mr)
        (not (is-4digit-prime? (member-id mr)))))
 

members-base.scm

@@ -372,7 +372,16 @@
        #:row-border #t
        #:col-border #t
        )))
-   (let ((pmrs (filter-members-by-predicate mb member-has-issues?)))
+   (let ((pmrs (filter-members-by-predicate mb member-has-problems?)))
+     (when (not (null? pmrs))
+       (newline)
+       (print "Member files with errors: "
+	      (string-intersperse
+	       (map member-file-path pmrs)
+	       ", "))))
+   (let ((pmrs (filter-members-by-predicate mb (lambda (mr)
+						 (and (member-has-highlights? mr)
+						      (not (member-has-problems? mr)))))))
      (when (not (null? pmrs))
        (newline)
        (print "Member files with issues: "