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

Fix non-loading of apikeys.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-09 16:49:29 +02:00
parent 91a70ebb46
commit 8dcc00b516
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/members-payments.scm
View file

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