Deal with destroyed using period handling.

member-record.scm

@@ -226,13 +226,11 @@
    (or (member-has-errors? mr)
        (not (is-4digit-prime? (member-id mr)))))
 
- ;; Returns true if the member record represents destroyed member. The
+ ;; Returns true if the member record represents non-existing
- ;; *current-month* is a global parameter from period module.
+ ;; member. The *current-month* is a global parameter from period
+ ;; module.
  (define (member-destroyed? mr)
-   (let ((destroyed (member-record-info mr 'destroyed #f)))
+   (not (member-existing? mr)))
-     (and destroyed
-	  (month<? (string->month destroyed)
-		   (*current-month*)))))
 
  ;; Generic period-based predicate
  (define ((member-period-predicate? key) mr)

members-base.scm

@@ -376,7 +376,7 @@
    (let ((pmrs (filter-members-by-predicate mb member-has-problems?)))
      (when (not (null? pmrs))
        (newline)
-       (print "Member files with errors: "
+       (print "Member files with errors (" (length pmrs) "): "
 	      (string-intersperse
 	       (map member-file-path pmrs)
 	       ", "))))