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

Bank transaction custom printer.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-03 20:43:45 +02:00
parent 75cc2c6d0e
commit 8775c6ce14
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/bank-account.scm
View file

@ -45,7 +45,8 @@
) )
(import scheme (import scheme
(chicken base)) (chicken base)
(chicken format))
;; Bank account is represented as a list with list with the following ;; Bank account is represented as a list with list with the following
;; elements: list of transactions, account number, bank code. This ;; elements: list of transactions, account number, bank code. This
@ -71,4 +72,15 @@
;; Creates a new bank transaction. ;; Creates a new bank transaction.
(define-record bank-transaction id date amount currency varsym message type) (define-record bank-transaction id date amount currency varsym message type)
(set-record-printer! bank-transaction
(lambda (tr out)
(fprintf out "#<transaction ~A ~A ~A ~A ~A ~A ~A>"
(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))))
) )