From 0a493197309b4975d5504f843ba3c5d7280e5e77 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sun, 16 Apr 2023 21:48:11 +0200 Subject: [PATCH] Load specsym. --- src/bank-account.scm | 7 ++++--- src/bank-fio.scm | 5 +++-- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/src/bank-account.scm b/src/bank-account.scm index 7c2be1f..2db6e1d 100644 --- a/src/bank-account.scm +++ b/src/bank-account.scm @@ -74,18 +74,19 @@ (cdr account))) ;; Creates a new bank transaction. - (define-record bank-transaction id date amount currency varsym message type account bank) + (define-record bank-transaction id date amount currency varsym message type account bank specsym) (set-record-printer! bank-transaction (lambda (tr out) - (fprintf out "#" + (fprintf out "#" (bank-transaction-id tr) (bank-transaction-date tr) (bank-transaction-amount tr) (bank-transaction-currency tr) (bank-transaction-varsym tr) (bank-transaction-message tr) - (bank-transaction-type tr)))) + (bank-transaction-type tr) + (bank-transaction-specsym tr)))) ;; Returns true if given acc/bc is in the list of accounts (define (bank-accounts-member? bas acc bc) diff --git a/src/bank-fio.scm b/src/bank-fio.scm index 2f751fe..b63dbfb 100644 --- a/src/bank-fio.scm +++ b/src/bank-fio.scm @@ -58,9 +58,10 @@ (message (list-ref row 12)) (type (list-ref row 13)) (bank (list-ref row 6)) - (account (list-ref row 4))) + (account (list-ref row 4)) + (specsym (list-ref row 10))) (make-bank-transaction id date amount currency varsym message type - account bank))) + account bank specsym))) ;; Loads Fio bank accound statement. (define (bank-fio-parse fn)