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

Highlight suspended title.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-20 19:26:39 +01:00
parent 5744a186d2
commit 8bb12c6e68
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
members-base.scm
View file

@ -324,7 +324,7 @@
(lambda (mr) (lambda (mr)
(>= (member-suspended-months mr) 24))))) (>= (member-suspended-months mr) 24)))))
(when (not (null? suspended2)) (when (not (null? suspended2))
(print " Suspended for at least 24 months: " (print (ansi #:magenta) " Suspended for at least 24 months: " a:default
(member-records->string (sort suspended2 member<?) "~N (~S)")))) (member-records->string (sort suspended2 member<?) "~N (~S)"))))
(when (not (null? invalid-mrs)) (when (not (null? invalid-mrs))
(print a:error " Invalid Id (" (length invalid-mrs) "): " (print a:error " Invalid Id (" (length invalid-mrs) "): "