Finish renaming to brmember.

src/brmember.scm

@@ -66,10 +66,10 @@
   brmember-add-payment
   brmember-payments
 
-  member-mailman
+  brmember-mailman
-  member-add-mailman
+  brmember-add-mailman
 
-  member-record-tests!
+  brmember-tests!
   )
 
  (import scheme
@@ -339,19 +339,19 @@
 	   (ldict-ref mr 'payments '())))
 
  ;; Returns a list of MLs this member is subscribed to
- (define (member-mailman mr)
+ (define (brmember-mailman mr)
    (ldict-ref mr 'mailman '()))
 
  ;; Adds given ML to given member record
- (define (member-add-mailman mr ml)
+ (define (brmember-add-mailman mr ml)
    (ldict-set mr 'mailman
 	     (cons ml
-		   (member-mailman mr))))
+		   (brmember-mailman mr))))
 
  ;; Self-tests
- (define (member-record-tests!)
+ (define (brmember-tests!)
    (run-tests
-    member-record
+    brmember
     (test-true make-brmember
 	       (ldict-equal?
 		(make-brmember '|1234| "members/1234" '(|member|))

src/members-base.scm

@@ -254,7 +254,7 @@
 				     (equal? (brmember-info mr 'mail #f)
 					     email))
 				   (lambda (mr)
-				     (member-add-mailman mr listname))))
+				     (brmember-add-mailman mr listname))))
 	    mb
 	    emails)))
 

src/members-print.scm

@@ -139,7 +139,7 @@
 				      (ansi-string #:red #:bold "---")))))))
 		     sikeys))
 	  (mailman (list (list "Mailing Lists"
-			       (string-intersperse (member-mailman mr) "\n"))))
+			       (string-intersperse (brmember-mailman mr) "\n"))))
 	  (result (filter identity (append head body mailman))))
      (table->string result #:table-border #f #:row-border #t #:col-border #t #:ansi #t)))
 

src/tests.scm

@@ -58,7 +58,7 @@
    (command-line-tests!)
    (members-dir-tests!)
    (primes-tests!)
-   (member-record-tests!)
+   (brmember-tests!)
    (table-tests!)
    (csv-simple-tests!)
    (lset-tests!)