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

Make sure the month-in-period treats everything as month.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-22 14:21:11 +02:00
parent e02fce55b4
commit 0f668cfa34
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cal-period.scm
View file

@ -195,7 +195,7 @@
(define (cal-month-in-period? p . ml) (define (cal-month-in-period? p . ml)
(let ((m (if (null? ml) (let ((m (if (null? ml)
(*current-month*) (*current-month*)
(car ml))) (cal-ensure-month (car ml))))
(before (cal-ensure-month (cal-period-before p) #t)) (before (cal-ensure-month (cal-period-before p) #t))
(since (cal-ensure-month (cal-period-since p)))) (since (cal-ensure-month (cal-period-since p))))
(and (or (not before) (and (or (not before)