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

Fix basic info.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 18:35:26 +02:00
parent 0c7cf11297
commit 2117749d61
4 changed files with 8 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

9
member-parser.scm
View file

@ -103,13 +103,6 @@
(if ok?
mr1
(member-record-add-highlight mr1 line-number msg 3 'error))))
((joined)
(let* ((month (string->month (car value)))
(mr0 (member-record-sub-set mr output key month)))
(if month
mr0
(member-record-add-highlight
mr0 (cdr value) "Invalid month specification" 3 'error))))
((card desfire)
(member-record-sub-set mr output key
(map
@ -139,7 +132,7 @@
(apply
member-record-sub-ensure
mr 'info
'member (make-period (*member-default-joined*) #f)
'member (list (make-period (*member-default-joined*) #f))
(join (map (lambda (mk) (list mk #f)) mandatory-keys))))
;; Pass 0: Removes any comments and removes any leading and trailing