brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Member sorting.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-20 12:44:41 +01:00
parent 59a52fb0d9
commit 8564056320
2 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
member-record.scm
View file

@ -41,6 +41,7 @@
member-suspended-months
member-source
print-member-source
member<?
member-record-tests!
)
@ -194,6 +195,11 @@
"..." ; Not used
)))
;; Comparator of member records based on nickname.
(define (member<? a b)
(string-ci<? (member-nick a)
(member-nick b)))
;; Performs module self-tests.
(define (member-record-tests!)
(run-tests