From faa3a930be8404bf2eee1b4658f4442708d28769 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sun, 26 Mar 2023 14:35:34 +0200 Subject: [PATCH] Rename long schema bindings. --- member-parser.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/member-parser.scm b/member-parser.scm index 38a6758..c220aa4 100644 --- a/member-parser.scm +++ b/member-parser.scm @@ -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)