Report errors in the member file.

member-record.scm

@@ -39,6 +39,8 @@
   member-existing?
   member-format
   member-suspended-months
+  member-source
+  print-member-source
   member-record-tests!
   )
 
@@ -50,7 +52,9 @@
 	 period
 	 testing
 	 month
-	 member-file)
+	 member-file
+	 listing
+	 ansi)
 
  ;; Prints human-readable information
  (define (print-member-record-info mr)
@@ -170,6 +174,26 @@
 	     0))
        0))
 
+ ;; Returns source (including error) information
+ (define (member-source mr)
+   (mr-ref mr member-file-error-symbol))
+
+ ;; Nicely prints the member source with any errors recorded.
+ (define (print-member-source mr)
+   (let* ((ms (member-source mr))
+	  (file-name (car ms))
+	  (lines (cadr ms))
+	  (hls (cddr ms)))
+     (print file-name ":")
+     (print-source-listing
+      lines
+      hls
+      -1
+      a:error a:default
+      "" "" ; Not used
+      "..." ; Not used
+      )))
+
  ;; Performs module self-tests.
  (define (member-record-tests!)
    (run-tests