diff --git a/src/brmember-parser.scm b/src/brmember-parser.scm index 2929cd4..2f7efe7 100644 --- a/src/brmember-parser.scm +++ b/src/brmember-parser.scm @@ -109,7 +109,7 @@ (info ,(lambda (mr output key value) (case key - ((student suspend member) + ((student suspend member revision chair council grant) (let* ((res (period-markers->cal-periods value)) (ok? (car res)) (periods (cadr res)) diff --git a/src/members-print.scm b/src/members-print.scm index e8d6493..a842dca 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -108,7 +108,7 @@ (caddr c))) (brmember-credit mr)) #:col-border #t))) - ((suspend student member) + ((suspend student member council chair revision grant) (list k (table->string (cons (list "Since" "Until")