Rename info and stats.

src/mbase.scm

@@ -45,12 +45,16 @@
   mbase-free-ids
   mbase-gen-id
 
-  members-base-info
-  members-base-stats
-  members-base-update
+  mbase-update
+
+  mbase-info
+  mbase-stats
+
   members-base-add-unpaired
   members-base-unpaired
+
   members-base-active-emails
+
   members-base-merge-mailman
   )
 
@@ -177,8 +181,19 @@
 	  (vfids (list->vector fids)))
      (vector-ref vfids (pseudo-random-integer (vector-length vfids)))))
 
+ ;; Returns new members base with member records matching the
+ ;; predicate processed by proc.
+ (define (mbase-update mb pred? proc)
+   (ldict-set mb
+	     'members
+	     (map (lambda (mr)
+		    (if (pred? mr)
+			(proc mr)
+			mr))
+		  (mbase-members mb))))
+
  ;; Returns dictionary with statistics about the members base.
- (define (members-base-info mb-arg)
+ (define (mbase-info mb-arg)
    (let* ((members (find-members-by-predicate mb-arg brmember-usable?))
 	  (di0 (make-ldict))
 	  (di1 (ldict-set di0 'invalid
@@ -200,13 +215,13 @@
 
  ;; Returns a list two lists: keys, data.
  ;; Each data record contains values for all keys.
- (define (members-base-stats mb)
+ (define (mbase-stats mb)
    (let ((keys '(month total active suspended students destroyed invalid)))
      (let mloop ((data '())
 		 (month (members-base-oldest-month mb)))
        (if (month<? month (*current-month*))
 	   (let ((bi (parameterize ((*current-month* month))
-		       (members-base-info mb))))
+		       (mbase-info mb))))
 	     (let kloop ((row (list (ldict-ref bi 'month)))
 			 (keys (cdr keys)))
 	       (if (null? keys)
@@ -216,17 +231,6 @@
 			  (cdr keys)))))
 	   (list keys (reverse data))))))
 
- ;; Returns new members base with member records matching the
- ;; predicate processed by proc.
- (define (members-base-update mb pred? proc)
-   (ldict-set mb
-	     'members
-	     (map (lambda (mr)
-		    (if (pred? mr)
-			(proc mr)
-			mr))
-		  (mbase-members mb))))
-
  ;; Adds unpaired transaction to given members-base
  (define (members-base-add-unpaired mb tr)
    (ldict-set mb 'unpaired
@@ -255,7 +259,7 @@
    (let ((listname (car ml))
 	 (emails (cdr ml)))
      (foldl (lambda (mb email)
-	      (members-base-update mb
+	      (mbase-update mb
 				   (lambda (mr)
 				     (equal? (brmember-info mr 'mail #f)
 					     email))