Finish getting all the problems.

member-record.scm

@@ -44,6 +44,7 @@
   member-record-info
   member-missing-keys
   member-highlights?
+  member-valid?
 
   member-destroyed?
   member-suspended?
@@ -72,7 +73,8 @@
 	 testing
 	 month
 	 period
-	 configuration)
+	 configuration
+	 primes)
 
  ;; Checks whether given string is a 4-digit decimal number.
  (define (is-4digit-string? s)
@@ -199,6 +201,11 @@
  (define (member-highlights? mr)
    (dict-has-key? mr 'highlights))
 
+ ;; True if member record is OK
+ (define (member-valid? mr)
+   (and (not (member-highlights? mr))
+	(is-4digit-prime? (member-id mr))))
+
  ;; Returns true if the member record represents destroyed member. The
  ;; *current-month* is a global parameter from period module.
  (define (member-destroyed? mr)