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

Safe failback on missing member info.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-23 13:35:28 +02:00
parent 75de98779b
commit 738db88cf8
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/brmember.scm
View file

@ -222,10 +222,14 @@
;; Returns member info key value ;; Returns member info key value
(define (brmember-info mr key . defaults) (define (brmember-info mr key . defaults)
(let ((info (ldict-ref mr 'info))) (let ((info (ldict-ref mr 'info #f)))
(if (null? defaults) (if info
(ldict-ref info key) (if (null? defaults)
(ldict-ref info key (car defaults))))) (ldict-ref info key)
(ldict-ref info key (car defaults)))
(if (null? defaults)
(error 'brmember-info "Info key is missing.")
(car defaults)))))
;; Return mandatory keys with #f as value ;; Return mandatory keys with #f as value
(define (brmember-missing-keys mr) (define (brmember-missing-keys mr)