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

Parse account and bank code for incoming payments.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-07 23:21:06 +02:00
parent 6638f7d8fb
commit b00139bd89
3 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/bank-account.scm
View file

@ -42,6 +42,8 @@
bank-transaction-id
bank-transaction-message
bank-transaction-type
bank-transaction-account
bank-transaction-bank
)
(import scheme
@ -70,7 +72,7 @@
(cdr account)))
;; 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 account bank)
(set-record-printer! bank-transaction
(lambda (tr out)