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

Add io wrapper handling UTF-8 BOM.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 20:35:41 +02:00
parent 6b8bffdd41
commit d72cde9c04
5 changed files with 80 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/bank-fio.scm
View file

@ -73,6 +73,14 @@
(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 ()