brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Start testing member-record, fix current month inference.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-18 15:54:25 +01:00
parent 023befa8f8
commit 798cfe318c
4 changed files with 35 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
period.scm
View file

@ -53,7 +53,7 @@
(define *current-month*
(make-parameter
(let ((d (seconds->local-time (current-seconds))))
(list (vector-ref d 5)
(list (+ 1900 (vector-ref d 5))
(vector-ref d 4)))))
;; Sorts period markers (be it start or end) chronologically and