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

Do not display error symbols in member-record.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 21:03:47 +01:00
parent 7a5975df63
commit 9a71545e3e
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
member-record.scm
View file

@ -49,7 +49,8 @@
dictionary
period
testing
month)
month
member-file)
;; Prints human-readable information
(define (print-member-record-info mr)
@ -73,10 +74,11 @@
(let* ((kv (car sinfo))
(k (car kv))
(v (cdr kv)))
(print " " k ":\t"
(if (member k '(student suspend))
(periods->string v)
v))
(when (not (eq? k member-file-error-symbol))
(print " " k ":\t"
(if (member k '(student suspend))
(periods->string v)
v)))
(loop (cdr sinfo)))))))
;; Returns key from the top-level (members-base) record if it exists,