From 29aa9d9ebacad81bc522378dc5974e781ea02c35 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 30 Mar 2023 15:43:37 +0200
Subject: [PATCH] Add bank account accessors.

---
 bank-account.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/bank-account.scm b/bank-account.scm
index 495e05a..d14761e 100644
--- a/bank-account.scm
+++ b/bank-account.scm
@@ -29,6 +29,9 @@
  bank-account
  (
   make-bank-account
+  bank-account-transactions
+  bank-account-number
+  bank-account-bank
   bank-account-insert
 
   make-bank-transaction
@@ -49,6 +52,11 @@
 			   (car maybe-transactions))))
      (list transactions number bank)))
 
+ ;; Trivial accessors
+ (define bank-account-transactions car)
+ (define bank-account-number cadr)
+ (define bank-account-bank caddr)
+
  ;; Prepends given transaction to given bank account. It expects the
  ;; transactions list to be the first element of the bank account
  ;; list.