Transactions table.
This commit is contained in:
parent
a1f059df8b
commit
04fba0c776
4 changed files with 26 additions and 3 deletions
|
@ -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))
|
||||
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue