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

Regular predicates.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:32:07 +02:00
parent bf2b8ef23a
commit 4bd6837e08
6 changed files with 51 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/members-print.scm
View file

@ -76,7 +76,7 @@
(string-intersperse
(map symbol->string aliases)
", "))
(when (member-suspended? mr)
(when (brmember-suspended? mr)
(print " Suspended for " (member-suspended-months mr) " months."))
(newline)
(let loop ((sinfo sinfo))
@ -96,7 +96,7 @@
(ansi-string #:red #:bold (number->string mid) " (not prime)")))
(list (sprintf "Alias~A:" (if (> (length aliases) 1) "es" ""))
(string-intersperse (map symbol->string aliases) ", "))
(if (member-suspended? mr)
(if (brmember-suspended? mr)
(list "Suspended for:"
(let ((msm (member-suspended-months mr)))
(sprintf "~A month~A" msm
@ -351,11 +351,11 @@
(payment (ldict-ref balance 'payment))
(total (- (+ credit payment) fees)))
(list (member-nick mr)
(if (member-suspended? mr)
(if (brmember-suspended? mr)
'suspended
(if (member-student? mr)
(if (brmember-student? mr)
'student
(if (member-destroyed? mr)
(if (brmember-destroyed? mr)
'destroyed
'active)))
fees
@ -368,7 +368,7 @@
(if destroyed?
(members-base-members MB)
(filter (lambda (mr)
(not (member-destroyed? mr)))
(not (brmember-destroyed? mr)))
(members-base-members MB)))
member<?)))
(balances (map (lambda (m)