From 25d0a806ce1bd1506c591428ce311fff8ab68837 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 13 Apr 2023 19:39:08 +0200
Subject: [PATCH] Start renaming mbase.

---
 src/hackerbase.scm | 2 +-
 src/mbase.scm      | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index f25b6f1..5d4a7fa 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -194,7 +194,7 @@
 ;; Load the members database (required for everything anyway)
 (define MB0
   (if (-action-)
-      (let ((mb (load-members (*members-directory*) #t)))
+      (let ((mb (load-mbase (*members-directory*) #t)))
 	(if (-needs-bank-)
 	    (members-payments-process mb (*apikeys-file*) (*bank-dir*) (*jendasap-checked*))
 	    mb))
diff --git a/src/mbase.scm b/src/mbase.scm
index 5f88fc7..fb3b3eb 100644
--- a/src/mbase.scm
+++ b/src/mbase.scm
@@ -28,7 +28,8 @@
 (module
  mbase
  (
-  load-members
+  load-mbase
+  
   members-base-members
   find-member-by-id
   find-member-by-nick
@@ -68,7 +69,7 @@
  ;; Loads members database, if the second argument is true, shows
  ;; progress. Members database is a dictionary with id being the key
  ;; (number) and member record being the value.
- (define (load-members dn . opts)
+ (define (load-mbase dn . opts)
    (let ((progress? (and (not (null? opts))
 			 (car opts))))
      (make-ldict