Fix non-loading of apikeys.

This commit is contained in:
Dominik Pantůček 2023-04-09 16:49:29 +02:00
parent 91a70ebb46
commit 8dcc00b516

View file

@ -113,13 +113,13 @@
mb))
(cdr transactions))))))
;; Reads the payments
;; Reads the accounts list, returns '() upon error.
(define (load-accounts-list apikeys)
(call/cc
(lambda (ret)
(with-exception-handler
(lambda (ex)
(ret #f))
(ret '()))
(lambda ()
(map (compose car string-split)
(read-lines