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

Add unpaired transactions storage to members base.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-05 14:57:48 +02:00
parent 209451468c
commit 0dd621c30f
2 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/members-base.scm
View file

@ -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 '()))
)