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

Member record finalization.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-25 21:59:51 +01:00
parent 4d43ce29d8
commit 389fd3dc1c
3 changed files with 17 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
member-record.scm
View file

@ -38,6 +38,7 @@
member-record-sub-ref
member-record-sub-set
member-record-sub-prepend
member-record-sub-has-key?
member-record-info
@ -157,6 +158,10 @@
(cons val
(member-record-sub-ref mr sec key '()))))
;; Returns true if given section contains given key
(define (member-record-sub-has-key? mr sec key)
(dict-has-key? (dict-ref mr sec) key))
;; Returns member info key value
(define (member-record-info mr key . defaults)
(let ((info (dict-ref mr 'info)))