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

Finish the major refactoring.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-25 22:08:30 +01:00
parent 0c6b421bc5
commit 785d4bd411
3 changed files with 21 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
member-record.scm
View file

@ -244,7 +244,7 @@
((#\I) (number->string (member-record-info mr 'id)))
((#\S) (number->string (member-suspended-months mr)))
((#\E)
(let ((n (length (member-record-info mr 'highlights '()))))
(let ((n (length (dict-ref mr 'highlights '()))))
(if (<= n 2)
""
(sprintf "[~A]" (- n 2)))))