Rename long schema bindings.
This commit is contained in:
parent
a56ff102f7
commit
faa3a930be
1 changed files with 4 additions and 4 deletions
|
@ -47,8 +47,8 @@
|
|||
;; Pass 2: known keys and multikeys
|
||||
(define mandatory-keys '(nick name mail phone))
|
||||
(define optional-keys '(born joined destroyed))
|
||||
(define member-schema-known-keys (append mandatory-keys optional-keys))
|
||||
(define member-schema-known-multikeys '(card desfire credit studentstart studentstop suspendstart suspendstop))
|
||||
(define known-keys (append mandatory-keys optional-keys))
|
||||
(define known-multikeys '(card desfire credit studentstart studentstop suspendstart suspendstop))
|
||||
|
||||
;; Pass 3: Interpreter passes
|
||||
(define member-schema-interpreters
|
||||
|
@ -171,7 +171,7 @@
|
|||
(key (car line))
|
||||
(value (cadr line))
|
||||
(number (caddr line)))
|
||||
(if (member key member-schema-known-keys)
|
||||
(if (member key known-keys)
|
||||
(if (dict-has-key? processed key)
|
||||
(loop (cdr parsed)
|
||||
(member-record-add-highlight mr number "Duplicate key" 2 'error)
|
||||
|
@ -179,7 +179,7 @@
|
|||
(loop (cdr parsed)
|
||||
mr
|
||||
(dict-set processed key (cons value number))))
|
||||
(if (member key member-schema-known-multikeys)
|
||||
(if (member key known-multikeys)
|
||||
(loop (cdr parsed)
|
||||
mr
|
||||
(dict-set processed key (cons (cons value number)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue