From ef73cecec5ffe197e24c65fcb4707812a860b0ef Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 18 Apr 2023 23:20:14 +0200 Subject: [PATCH] Show specific symbol. --- src/bank-account.scm | 1 + src/members-print.scm | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/bank-account.scm b/src/bank-account.scm index 2db6e1d..29f3c71 100644 --- a/src/bank-account.scm +++ b/src/bank-account.scm @@ -44,6 +44,7 @@ bank-transaction-type bank-transaction-account bank-transaction-bank + bank-transaction-specsym bank-accounts-member? ) diff --git a/src/members-print.scm b/src/members-print.scm index 5df5338..fbb5d00 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -395,7 +395,7 @@ (apply table->list (cons - (list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank") + (list "Id" "Date" "Amount" "" "VS" "SS" "Type" "Message" "Account" "Bank") (map (lambda (tr) (list (bank-transaction-id tr) @@ -403,6 +403,7 @@ (sprintf "\t~A" (bank-transaction-amount tr)) (bank-transaction-currency tr) (sprintf "\t~A" (bank-transaction-varsym tr)) + (sprintf "\t~A" (bank-transaction-specsym tr)) (bank-transaction-type tr) (bank-transaction-message tr) (bank-transaction-account tr)