From 9e12a433072086dbcf13f11002f0b5ab741a93cf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sat, 18 Mar 2023 16:29:29 +0100
Subject: [PATCH] Export mr predicates, update dependencies.

---
 Makefile          | 3 ++-
 member-record.scm | 6 ++++++
 members-base.scm  | 3 ++-
 3 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index 013200e..022ef88 100644
--- a/Makefile
+++ b/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
diff --git a/member-record.scm b/member-record.scm
index b532be7..e672bb7 100644
--- a/member-record.scm
+++ b/member-record.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))))))))
     ))
 
  )
diff --git a/members-base.scm b/members-base.scm
index 2963a86..a7d6cf3 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -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