Export mr predicates, update dependencies.

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

View file

@ -123,7 +123,8 @@ command-line.o: command-line.import.scm
command-line.import.scm: command-line.so
MEMBERS-BASE-SOURCES=members-base.scm testing.import.scm \
utils.import.scm dictionary.import.scm member-file.import.scm
utils.import.scm dictionary.import.scm member-file.import.scm \
primes.import.scm member-record.import.scm
members-base.so: $(MEMBERS-BASE-SOURCES)
members-base.o: members-base.import.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))))))))
))
)

View file

@ -50,7 +50,8 @@
utils
dictionary
member-file
primes)
primes
member-record)
;; Gets all files and symbolic links from given directory. The
;; symbolic links are represented by cons cells with car being the