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

1
member-file.scm
View file

@ -31,6 +31,7 @@
*member-file-context* *member-file-context*
*member-file-check-syntax* *member-file-check-syntax*
*member-default-joined* *member-default-joined*
member-file-error-symbol
load-member-file load-member-file
member-file-tests! member-file-tests!
) )

12
member-record.scm
View file

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