Make directory argument mandatory for members payments processing.

src/members-payments.scm

@@ -105,11 +105,7 @@
 
  ;; If apikeys is not #f, loads the account numbers, loads bank
  ;; accounts and processes transactions.
- (define (members-payments-process mb apikeys-file . dirs)
-   (let ((dir (if (null? dirs)
-		  (current-directory)
-		  (or (car dirs)
-		      (current-directory)))))
+ (define (members-payments-process mb apikeys-file dir)
    (if apikeys-file
        (let* ((accounts (load-accounts
 			 (load-accounts-list apikeys-file)
@@ -118,7 +114,7 @@
 	      (foldl members-payments-process-bank
 		     mb
 		     accounts)))
-	 mb)))
+       mb))
 
  ;; Adds all balances - payments are converted to CZK in member-payments-total
  (define (member-add-balance mr)