Add unpaired transactions storage to members base.
This commit is contained in:
parent
209451468c
commit
0dd621c30f
2 changed files with 17 additions and 0 deletions
|
@ -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
|
||||
|
|
|
@ -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 '()))
|
||||
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue