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

Transactions table.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 16:27:04 +02:00
parent a1f059df8b
commit 04fba0c776
4 changed files with 26 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
bank-account.scm
View file

@ -38,6 +38,8 @@
bank-transaction-varsym
bank-transaction-amount
bank-transaction-currency
bank-transaction-date
bank-transaction-id
)
(import scheme
@ -73,5 +75,8 @@
(define bank-transaction-varsym car)
(define bank-transaction-amount cadr)
(define bank-transaction-currency caddr)
(define bank-transaction-date cadddr)
(define (bank-transaction-id tr)
(list-ref tr 4))
)