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

Export mr predicates, update dependencies.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-18 16:29:29 +01:00
parent b27ddb32e4
commit 9e12a43307
3 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
member-record.scm
View file

@ -30,6 +30,9 @@
member-record
(
print-member-record-info
member-destroyed?
member-suspended?
member-active?
member-record-tests!
)
@ -117,6 +120,9 @@
(test-false member-suspended?
(parameterize ((*current-month* (list 2023 2)))
(member-suspended? '((info . ((suspend ((2010 1) 2022 4))))))))
(test-true member-active?
(parameterize ((*current-month* (list 2023 2)))
(member-active? '((info . ((suspend ((2010 1) 2022 4))))))))
))
)