brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Start renaming mbase.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-13 19:39:08 +02:00
parent b5ba10cf4c
commit 25d0a806ce
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/hackerbase.scm
View file

@ -194,7 +194,7 @@
;; Load the members database (required for everything anyway) ;; Load the members database (required for everything anyway)
(define MB0 (define MB0
(if (-action-) (if (-action-)
(let ((mb (load-members (*members-directory*) #t))) (let ((mb (load-mbase (*members-directory*) #t)))
(if (-needs-bank-) (if (-needs-bank-)
(members-payments-process mb (*apikeys-file*) (*bank-dir*) (*jendasap-checked*)) (members-payments-process mb (*apikeys-file*) (*bank-dir*) (*jendasap-checked*))
mb)) mb))

5
src/mbase.scm
View file

@ -28,7 +28,8 @@
(module (module
mbase mbase
( (
load-members load-mbase
members-base-members members-base-members
find-member-by-id find-member-by-id
find-member-by-nick find-member-by-nick
@ -68,7 +69,7 @@
;; Loads members database, if the second argument is true, shows ;; Loads members database, if the second argument is true, shows
;; progress. Members database is a dictionary with id being the key ;; progress. Members database is a dictionary with id being the key
;; (number) and member record being the value. ;; (number) and member record being the value.
(define (load-members dn . opts) (define (load-mbase dn . opts)
(let ((progress? (and (not (null? opts)) (let ((progress? (and (not (null? opts))
(car opts)))) (car opts))))
(make-ldict (make-ldict