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

Load specsym.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-16 21:48:11 +02:00
parent 0777980564
commit 0a49319730
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/bank-account.scm
View file

@ -74,18 +74,19 @@
(cdr account)))
;; Creates a new bank transaction.
(define-record bank-transaction id date amount currency varsym message type account bank)
(define-record bank-transaction id date amount currency varsym message type account bank specsym)
(set-record-printer! bank-transaction
(lambda (tr out)
(fprintf out "#<transaction ~A ~A ~A ~A ~A ~A ~A>"
(fprintf out "#<transaction ~A ~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))))
(bank-transaction-type tr)
(bank-transaction-specsym tr))))
;; Returns true if given acc/bc is in the list of accounts
(define (bank-accounts-member? bas acc bc)