Export mr predicates, update dependencies.
This commit is contained in:
parent
b27ddb32e4
commit
9e12a43307
3 changed files with 10 additions and 2 deletions
3
Makefile
3
Makefile
|
@ -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
|
||||
|
|
|
@ -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))))))))
|
||||
))
|
||||
|
||||
)
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue