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

Work on day in period.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-22 14:56:10 +02:00
parent 0f668cfa34
commit 71687849c4
3 changed files with 36 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/brmember.scm
View file

@ -473,10 +473,10 @@
(make-ldict `((info . ,(make-ldict
`((member . (,(make-cal-period
(make-cal-month 2015 1) #f)))
(suspend (make-cal-period
(make-cal-month 2010 1)
(make-cal-onth 2022 4)
#f #f))))))))))
(suspend ,(make-cal-period
(make-cal-month 2010 1)
(make-cal-month 2022 4)
#f #f))))))))))
(test-true brmember-active?
(parameterize ((*current-month* (make-cal-month 2023 2)))
(brmember-active?
@ -484,10 +484,10 @@
`((member . (,(make-cal-period
(make-cal-month 2015 1)
#f)))
(suspend (make-cal-period
(make-cal-month 2010 1)
(make-cal-month 2022 4)
#f #f))))))))))
(suspend ,(make-cal-period
(make-cal-month 2010 1)
(make-cal-month 2022 4)
#f #f))))))))))
))
)