Fix current month and print it.
This commit is contained in:
parent
922b178519
commit
ac01370c67
3 changed files with 4 additions and 2 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue