Show missing keys.
This commit is contained in:
parent
babe6ffce4
commit
f06949b545
2 changed files with 16 additions and 1 deletions
|
@ -116,7 +116,14 @@
|
|||
(else
|
||||
(list k v)))))
|
||||
sikeys))
|
||||
(result (filter identity (append head body))))
|
||||
(misskeys (member-missing-keys mr))
|
||||
(miss (if (null? misskeys)
|
||||
'()
|
||||
(list (list "Missing keys:"
|
||||
(string-intersperse
|
||||
(map symbol->string misskeys)
|
||||
", ")))))
|
||||
(result (filter identity (append head body miss))))
|
||||
(print (table->string result #:table-border #t #:row-border #t #:col-border #t))))
|
||||
|
||||
;; Nicely prints the member source with any errors recorded.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue