Finish splitting out member-format.

src/members-print.scm

@@ -59,7 +59,8 @@
 	 configuration
 	 bank-account
 	 member-fees
-	 members-payments)
+	 members-payments
+	 brmember-format)
 
  ;; Prints human-readable information
  (define (print-member-info mr)
@@ -201,7 +202,7 @@
 		  (cadr args))))
      (string-intersperse
       (map (lambda (mr)
-	     (member-format fmt mr))
+	     (brmember-format fmt mr))
 	   mrs)
       sep)))
 
@@ -329,7 +330,7 @@
 	      (string-intersperse
 	       (map (lambda (id)
 		      (let ((mr (find-member-by-id MB id)))
-			(member-format
+			(brmember-format
 			 "~I - ~N"
 			 mr)))
 		    iids)