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

Use string-translate*.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 09:56:44 +02:00
parent 8fb302f682
commit f5448d050f
1 changed files with 2 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
bank-fio.scm
View file

@ -44,13 +44,8 @@
(let ((id (string->number (car row))) (let ((id (string->number (car row)))
(date (cadr row)) (date (cadr row))
(amount (string->number (amount (string->number
(let* ((astr (caddr row)) (string-translate* (caddr row)
(ci (substring-index "," astr))) '(("," . ".")))))
(if ci
(string-append (substring astr 0 ci)
"."
(substring astr (add1 ci)))
astr))))
(currency (string->symbol (cadddr row))) (currency (string->symbol (cadddr row)))
(varsym (list-ref row 9)) (varsym (list-ref row 9))
(message (list-ref row 12))) (message (list-ref row 12)))