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

Handle inter-account transactions properly.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 20:40:38 +02:00
parent d72cde9c04
commit ac46f41cb3
2 changed files with 5 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/bank-fio.scm
View file

@ -73,14 +73,6 @@
(num (if numrow (cadr numrow) "ERROR"))
(bankrow (assoc "bankId" head))
(bank (if bankrow (cadr bankrow) "ERROR")))
(print head)
(print numrow)
(print bankrow)
(print (assoc (caar head) head))
(print (caar head))
(print "accountId")
(print (equal? "accountId" (caar head)))
(print (string->list (caar head)))
(make-bank-account num bank
(map make-fio-transaction (cdr body))))
(let ()