From c854fed99d9e6d9ebcd3f3caee82b237f50860f1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 11 Apr 2023 21:55:55 +0200
Subject: [PATCH] Rename constructor.

---
 src/brmember.scm    | 16 ++++++++--------
 src/members-dir.scm |  6 +++---
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/brmember.scm b/src/brmember.scm
index df73cc1..bfc8bf7 100644
--- a/src/brmember.scm
+++ b/src/brmember.scm
@@ -29,7 +29,7 @@
 (module
  brmember
  (
-  make-member-record
+  make-brmember
 
   member-file-name
   member-file-path
@@ -110,7 +110,7 @@
  ;; Creates new member record based on the file and symlinks
  ;; information received from the members directory. Any keyword
  ;; arguments are converted to respective symbols in the dictionary.
- (define (make-member-record file-name file-path symlinks . args)
+ (define (make-brmember file-name file-path symlinks . args)
    (let loop ((args args)
 	      (pairs `((file-name . ,file-name)
 		       (file-path . ,file-path)
@@ -121,9 +121,9 @@
      (if (null? args)
 	 (make-ldict pairs)
 	 (if (not (keyword? (car args)))
-	     (error 'make-member-record "Optional arguments must be keywords" (car args))
+	     (error 'make-brmember "Optional arguments must be keywords" (car args))
 	     (if (null? (cdr args))
-		 (error 'make-member-record "Each optional keyword argument must have a value" (car args))
+		 (error 'make-brmember "Each optional keyword argument must have a value" (car args))
 		 (loop (cddr args)
 		       (cons (cons (string->symbol (keyword->string (car args)))
 				   (cadr args))
@@ -352,17 +352,17 @@
  (define (member-record-tests!)
    (run-tests
     member-record
-    (test-true make-member-record
+    (test-true make-brmember
 	       (ldict-equal?
-		(make-member-record '|1234| "members/1234" '(|member|))
+		(make-brmember '|1234| "members/1234" '(|member|))
 		(make-ldict
 		 '((file-name . |1234|)
 		   (file-path . "members/1234")
 		   (symlinks |member|)
 		   (id . 1234)))))
-    (test-true make-member-record
+    (test-true make-brmember
 	       (ldict-equal?
-		(make-member-record '|1234| "members/1234" '(|member|) #:msg "msg")
+		(make-brmember '|1234| "members/1234" '(|member|) #:msg "msg")
 		(make-ldict
 		 '((msg . "msg")
 		   (file-name . |1234|)
diff --git a/src/members-dir.scm b/src/members-dir.scm
index a0c6a42..bdaf4ca 100644
--- a/src/members-dir.scm
+++ b/src/members-dir.scm
@@ -149,9 +149,9 @@
  ;; member-file module returns. The id key contains whatever is the
  ;; first 4-digit symbol in (cons fname aliases) list.
  (define (members-dir-load-member mdir fname symlinks)
-   (let* ((mr0 (make-member-record fname
-				   (make-pathname mdir (symbol->string fname))
-				   symlinks)))
+   (let* ((mr0 (make-brmember fname
+			      (make-pathname mdir (symbol->string fname))
+			      symlinks)))
      (load-member-file mr0)))
 
  ;; Performs self-tests of this module.