Prepare for separate blame to print.

src/members-print.scm

@@ -31,6 +31,7 @@
  (
   print-member-table
   print-member-source
+  print-member-blame
   member-records->string
   print-members-base-table
   print-members-base-stats
@@ -165,6 +166,18 @@
       #:context -1
       )))
 
+ ;; Nicely prints the member annotated source with any errors recorded.
+ (define (print-member-blame mr)
+   (let* ((lines (brmember-source mr))
+	  (file-name (ldict-ref mr 'file-name))
+	  (hls (ldict-ref mr 'highlights '())))
+     (print file-name ":")
+     (print-source-listing
+      lines
+      hls
+      #:context -1
+      )))
+
  ;; Prints nicely printed payments
  (define (member-payments->table mr)
    (table->string (cons