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

Consistently name local parameter.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-01 22:26:47 +02:00
parent e0e043bdf5
commit f436e9e07c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/bbstool.scm
View file

@ -53,7 +53,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(newline) (newline)
;; Command-line options and configurable parameters ;; Command-line options and configurable parameters
(define *apikeys-file* (make-parameter "apikey.ntlm")) (define -apikeys-file- (make-parameter "apikey.ntlm"))
(define -needs-bank- (make-parameter #f)) (define -needs-bank- (make-parameter #f))
(define -member-id- (make-parameter #f)) (define -member-id- (make-parameter #f))
(define -member-nick- (make-parameter #f)) (define -member-nick- (make-parameter #f))
@ -83,7 +83,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-tstyle (style) "Use given table style: debug, ascii, unicode" (-tstyle (style) "Use given table style: debug, ascii, unicode"
(*table-border-style* (string->symbol style))) (*table-border-style* (string->symbol style)))
(-apikey (fname) "File with Fio API keys" (-apikey (fname) "File with Fio API keys"
(*apikeys-file* fname)) (-apikeys-file- fname))
"" ""
"Query options:" "Query options:"
(-mi (id) "Specify member by id" (-member-id- (string->number id))) (-mi (id) "Specify member by id" (-member-id- (string->number id)))
@ -139,7 +139,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(if (-action-) (if (-action-)
(let ((mb (load-members (*members-directory*) #t))) (let ((mb (load-members (*members-directory*) #t)))
(if (-needs-bank-) (if (-needs-bank-)
(members-payments-process mb (*apikeys-file*)) (members-payments-process mb (-apikeys-file-))
mb)) mb))
#f)) #f))