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

Fix open period checking.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-18 16:50:51 +01:00
parent 637128ae92
commit d183e658b1
3 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
period.scm
View file

@ -103,7 +103,8 @@
(let ((m (if (null? ml)
(*current-month*)
(car ml))))
(and (month<? m (cdr p))
(and (or (not (cdr p))
(month<? m (cdr p)))
(not (month<? m (car p))))))
;; Returns true if given month is in at least one of the periods