Make it run again.

member-record.scm

@@ -24,7 +24,7 @@
 ;; CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 ;;
 
-(declare (unit member2-record))
+(declare (unit member-record))
 
 (module
  member-record
@@ -53,6 +53,8 @@
 
   member-format
 
+  member<?
+
   member-record-tests!
   )
 
@@ -245,6 +247,12 @@
 			   resl))
 	       (loop (cdr fmtl)
 		     (cons (make-string 1 (car fmtl)) resl)))))))
+
+ ;; Comparator of member records based on nickname.
+ (define (member<? a b)
+   (string-ci<? (member-nick a)
+		(member-nick b)))
+
  ;; Self-tests
  (define (member-record-tests!)
    (run-tests