From f436e9e07cda33955ac9078593a3177bc3c16978 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 1 Apr 2023 22:26:47 +0200 Subject: [PATCH] Consistently name local parameter. --- src/bbstool.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/bbstool.scm b/src/bbstool.scm index 25f9d81..718ea42 100644 --- a/src/bbstool.scm +++ b/src/bbstool.scm @@ -53,7 +53,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. (newline) ;; 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 -member-id- (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" (*table-border-style* (string->symbol style))) (-apikey (fname) "File with Fio API keys" - (*apikeys-file* fname)) + (-apikeys-file- fname)) "" "Query options:" (-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-) (let ((mb (load-members (*members-directory*) #t))) (if (-needs-bank-) - (members-payments-process mb (*apikeys-file*)) + (members-payments-process mb (-apikeys-file-)) mb)) #f))