Finish new progress.

member-file.scm

@@ -46,7 +46,8 @@
 	 testing
 	 listing
 	 ansi
-	 configuration)
+	 configuration
+	 progress)
 
  ;; Specification of known keys for various types of parsing
  (define known-keys '(nick mail phone name born joined destroyed
@@ -92,12 +93,13 @@
  ;; *member-file-check-syntax* parameter.
  (define (report-line-error file-name lines highlight message)
    (when (not (eq? (*member-file-check-syntax*) 'quiet))
-     (print "Error in " file-name ": " message)
-     (newline)
-     (print-source-listing lines (list highlight)
-			   (*member-file-context*)
-			   a:error a:default
-			   "" "" "..."))
+     (progress-break
+      (print "Error in " file-name ": " message)
+      (newline)
+      (print-source-listing lines (list highlight)
+			    (*member-file-context*)
+			    a:error a:default
+			    "" "" "...")))
    (if (eq? (*member-file-check-syntax*) 'error)
        (exit 1)
        (list member-file-error-symbol