Move more stuff into configuration module.

member-file.scm

@@ -28,9 +28,6 @@
 (module
  member-file
  (
-  *member-file-context*
-  *member-file-check-syntax*
-  *member-default-joined*
   member-file-error-symbol
   load-member-file
   member-file-tests!
@@ -48,7 +45,8 @@
 	 period
 	 testing
 	 listing
-	 ansi)
+	 ansi
+	 configuration)
 
  ;; Specification of known keys for various types of parsing
  (define known-keys '(nick mail phone name born joined destroyed
@@ -57,17 +55,6 @@
  (define start/stop-keys '(student suspend))
  (define multi-keys '(card desfire credit))
 
- ;; Configuration of error reporting
- (define *member-file-context* (make-parameter 3))
-
- ;; Tolerance to formal errors (invalid key or key without value):
- ;;  'error - show source and exits with error
- ;;  'warning - show source and error, continue
- ;;  'quiet - ignore
- (define *member-file-check-syntax* (make-parameter 'error))
-
- (define *member-default-joined* (make-parameter (make-month 2015 1)))
-
  ;; Symbol used for error reporting in member file keys.
  (define member-file-error-symbol
    (string->symbol