Report errors in the member file.

This commit is contained in:
Dominik Pantůček 2023-03-19 21:49:54 +01:00
parent 9a71545e3e
commit 39554768b3
4 changed files with 76 additions and 15 deletions

View file

@ -82,6 +82,8 @@
(-fname- fname))
(-month (month) "Specify current month"
(*current-month* (string->month month)))
(-print () "Print given member file"
(-action- 'print-member-file))
)
;; Load the members database (required for everything anyway)
@ -110,4 +112,10 @@
(parameterize ((current-output-port (open-output-file (-fname-))))
(print-members-base-stats
(members-base-stats MB))))
((print-member-file)
(cond (mr
(newline)
(print-member-source mr))
(else
(print "No member specified!"))))
)