Finish renaming to brmember.

src/brmember.scm

@@ -66,10 +66,10 @@
   brmember-add-payment
   brmember-payments
 
-  member-mailman
-  member-add-mailman
+  brmember-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|))