Remove unused error context parameter.

This commit is contained in:
Dominik Pantůček 2023-04-01 22:39:11 +02:00
parent d6d47e91fc
commit f9eb053c9a
2 changed files with 0 additions and 5 deletions

View file

@ -78,7 +78,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
""
"Configuration options:"
(-members (dir) "Members base directory" (*members-directory* dir))
(-context (n) "Member-File parser Error Context (lines)" (*member-file-context* (string->number n)))
(-month (YYYY-MM) "Specify current month"
(*current-month* (string->month YYYY-MM)))
(-tstyle (style) "Use given table style: debug, ascii, unicode"

View file

@ -29,7 +29,6 @@
configuration
(
*current-month*
*member-file-context*
*member-suspend-max-months*
*members-directory*
)
@ -47,9 +46,6 @@
(list (+ 1900 (vector-ref d 5))
(+ (vector-ref d 4) 1)))))
;; Configuration of error reporting
(define *member-file-context* (make-parameter 3))
;; How long the member can be suspended without any action required?
(define *member-suspend-max-months* (make-parameter 24))