From f5448d050f3f018f4ddadba156316263664100bc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Fri, 31 Mar 2023 09:56:44 +0200 Subject: [PATCH] Use string-translate*. --- bank-fio.scm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/bank-fio.scm b/bank-fio.scm index f3857cb..28b327c 100644 --- a/bank-fio.scm +++ b/bank-fio.scm @@ -44,13 +44,8 @@ (let ((id (string->number (car row))) (date (cadr row)) (amount (string->number - (let* ((astr (caddr row)) - (ci (substring-index "," astr))) - (if ci - (string-append (substring astr 0 ci) - "." - (substring astr (add1 ci))) - astr)))) + (string-translate* (caddr row) + '(("," . "."))))) (currency (string->symbol (cadddr row))) (varsym (list-ref row 9)) (message (list-ref row 12)))