Finish mbase renaming.

src/hackerbase.scm

@@ -207,13 +207,13 @@
 	  (let ()
 	    (define mls (load-mailman-lists))
 	    (values (foldl (lambda (mb ml)
-			     (members-base-merge-mailman mb ml))
+			     (mbase-merge-mailman mb ml))
 			   MB0
 			   mls)
 		    (find-mailman-list mls "internal")))
 	  (let ()
 	    (define internal-ml (load-mailman-list "internal"))
-	    (values (members-base-merge-mailman MB0 internal-ml)
+	    (values (mbase-merge-mailman MB0 internal-ml)
 		    internal-ml)))
       (values #f #f)))
 
@@ -310,12 +310,12 @@
    (print-unpaired-table MB))
   ((mlsync)
    (if (-normal-month-)
-       (mailman-sync-members internal-ml (members-base-active-emails MB))
+       (mailman-sync-members internal-ml (mbase-active-emails MB))
        (print "Mailman synchronization disabled with manually specified current month.")))
   ((mlcheck)
    (let-values (((missing surplus)
 		 (mailman-compare-members internal-ml
-					  (members-base-active-emails MB))))
+					  (mbase-active-emails MB))))
      (if (and (null? missing)
 	      (null? surplus))
 	 (print "Internal mailing list membership in sync.")

src/mbase.scm

@@ -53,9 +53,9 @@
   mbase-add-unpaired
   mbase-unpaired
 
-  members-base-active-emails
+  mbase-active-emails
 
-  members-base-merge-mailman
+  mbase-merge-mailman
   )
 
  (import scheme
@@ -243,7 +243,7 @@
 
  ;; Returns the list of emails of all active members sorted
  ;; alphabetically
- (define (members-base-active-emails mb)
+ (define (mbase-active-emails mb)
    (sort
     (filter
      string?
@@ -255,7 +255,7 @@
     string-ci<?))
 
  ;; Merges given ML members into members base
- (define (members-base-merge-mailman mb ml)
+ (define (mbase-merge-mailman mb ml)
    (let ((listname (car ml))
 	 (emails (cdr ml)))
      (foldl (lambda (mb email)