From 0dd621c30f43d12aad81a2d885a35b79ac95bbd2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 5 Apr 2023 14:57:48 +0200
Subject: [PATCH] Add unpaired transactions storage to members base.

---
 MODULES.md           |  5 +++++
 src/members-base.scm | 12 ++++++++++++
 2 files changed, 17 insertions(+)

diff --git a/MODULES.md b/MODULES.md
index ac962db..adfac17 100644
--- a/MODULES.md
+++ b/MODULES.md
@@ -796,6 +796,11 @@ Returns a string created by appending all the strings given and
 ```ansi``` function produced ones with consecutive keywords passed to
 single ```ansi``` evaluation.
 
+    (clrscr)
+
+Clears the terminal screen and places the cursor in the top left
+corner.
+
 ### Command Line parsing
 
 Generic syntax-based implementation of command-line options parsing
diff --git a/src/members-base.scm b/src/members-base.scm
index 35a33f5..90c4a2f 100644
--- a/src/members-base.scm
+++ b/src/members-base.scm
@@ -41,6 +41,8 @@
   get-free-members-ids
   gen-member-id
   members-base-update
+  members-base-add-unpaired
+  members-base-unpaired
   )
 
  (import scheme
@@ -216,4 +218,14 @@
 			mr))
 		  (members-base-members mb))))
 
+ ;; Adds unpaired transaction to given members-base
+ (define (members-base-add-unpaired mb tr)
+   (dict-set mb 'unpaired
+	     (cons tr
+		   (dict-ref mb 'unpaired '()))))
+
+ ;; Returns known unpaired transactions
+ (define (members-base-unpaired mb)
+   (dict-ref mb 'unpaired '()))
+
  )