From e5f7a3ef47035a82c02e9750022d4310a8f4e9b6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 1 Apr 2023 10:35:58 +0200 Subject: [PATCH] Do not load anything if nothing is to be done. --- src/bbstool.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/bbstool.scm b/src/bbstool.scm index 4e6eeb2..3c90eb6 100644 --- a/src/bbstool.scm +++ b/src/bbstool.scm @@ -119,10 +119,12 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ;; Load the members database (required for everything anyway) (define MB - (let ((mb (load-members (*members-directory*) #t))) - (if (-needs-bank-) - (members-payments-process mb (*apikeys-file*)) - mb))) + (if (-action-) + (let ((mb (load-members (*members-directory*) #t))) + (if (-needs-bank-) + (members-payments-process mb (*apikeys-file*)) + mb)) + #f)) ;; If a member is specified by either id or nick, get its record (define mr @@ -202,5 +204,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ((fees) (newline) (print-members-fees-table MB)) + (else + (print "Nothing to do.")) )