Members comparator.

src/brmember.scm

@@ -61,7 +61,7 @@
   brmember-id
   brmember-suspended-months
 
-  member<?
+  brmember<?
 
   member-record-add-payment
   member-payments
@@ -320,7 +320,7 @@
        0))
 
  ;; Comparator of member records based on nickname.
- (define (member<? a b)
+ (define (brmember<? a b)
    (string-ci<? (brmember-nick a)
 		(brmember-nick b)))
 

src/members-print.scm

@@ -219,13 +219,13 @@
 	    (destroyed-mrs (ldict-ref bi 'destroyed))
 	    (student-mrs (ldict-ref bi 'students)))
        (print a:success "  Active (" (length active-mrs) "): " a:default
-	      (member-records->string (sort active-mrs member<?) "~N~E"))
+	      (member-records->string (sort active-mrs brmember<?) "~N~E"))
        (print a:warning "  Suspended (" (length suspended-mrs) "): " a:default
-	      (member-records->string (sort suspended-mrs member<?) "~N~E"))
+	      (member-records->string (sort suspended-mrs brmember<?) "~N~E"))
        (print a:warning "  Destroyed (" (length destroyed-mrs) "): " a:default
-	      (member-records->string (sort destroyed-mrs member<?) "~N~E"))
+	      (member-records->string (sort destroyed-mrs brmember<?) "~N~E"))
        (print a:highlight "  Students (" (length student-mrs) "): " a:default
-	      (member-records->string (sort student-mrs member<?)))
+	      (member-records->string (sort student-mrs brmember<?)))
        (let ((suspended2 (filter
 			  (lambda (mr)
 			    (>= (brmember-suspended-months mr) 24))
@@ -233,10 +233,10 @@
 	 (when (not (null? suspended2))
 	   (print (ansi #:magenta) "  Suspended for at least 24 months ("
 		  (length suspended2) "): " a:default
-		  (member-records->string (sort suspended2 member<?) "~N (~S)"))))
+		  (member-records->string (sort suspended2 brmember<?) "~N (~S)"))))
        (when (not (null? invalid-mrs))
 	 (print a:error "  Invalid Id (" (length invalid-mrs) "): "
-		(member-records->string (sort invalid-mrs member<?) "~N (~I)")
+		(member-records->string (sort invalid-mrs brmember<?) "~N (~I)")
 		a:default)))))
 
  ;; Helper function for pretty-formatting the filtered members lists
@@ -246,7 +246,7 @@
 	 (length mrs)
 	 (ansi-paragraph-format
 	  (member-records->string
-	   (sort mrs member<?)
+	   (sort mrs brmember<?)
 	   fmt)
 	  60)))
 
@@ -370,7 +370,7 @@
 		   (filter (lambda (mr)
 			     (not (brmember-destroyed? mr)))
 			   (members-base-members MB)))
-	       member<?)))
+	       brmember<?)))
 	    (balances (map (lambda (m)
 			     (list-ref m 6))
 			   members)))