Fix current month and print it.

This commit is contained in:
Dominik Pantůček 2023-03-21 20:29:28 +01:00
parent 922b178519
commit ac01370c67
3 changed files with 4 additions and 2 deletions

View file

@ -45,7 +45,7 @@
(make-parameter
(let ((d (seconds->local-time (current-seconds))))
(list (+ 1900 (vector-ref d 5))
(vector-ref d 4)))))
(+ (vector-ref d 4) 1)))))
;; Configuration of error reporting
(define *member-file-context* (make-parameter 3))