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

5
MODULES.md
View file

@ -796,6 +796,11 @@ Returns a string created by appending all the strings given and
```ansi``` function produced ones with consecutive keywords passed to ```ansi``` function produced ones with consecutive keywords passed to
single ```ansi``` evaluation. single ```ansi``` evaluation.
(clrscr)
Clears the terminal screen and places the cursor in the top left
corner.
### Command Line parsing ### Command Line parsing
Generic syntax-based implementation of command-line options parsing Generic syntax-based implementation of command-line options parsing

12
src/members-base.scm
View file

@ -41,6 +41,8 @@
get-free-members-ids get-free-members-ids
gen-member-id gen-member-id
members-base-update members-base-update
members-base-add-unpaired
members-base-unpaired
) )
(import scheme (import scheme
@ -216,4 +218,14 @@
mr)) mr))
(members-base-members mb)))) (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 '()))
) )