Output member file to nick.misc in web output.

src/member-record.scm

@@ -42,6 +42,7 @@
   member-record-sub-has-key?
   member-record-sub-ensure
 
+  member-source
   member-record-info
   member-missing-keys
   member-has-highlights?
@@ -196,6 +197,10 @@
 			 sd
 			 (dict-set sd key val))))))))
 
+ ;; Returns source lines
+ (define (member-source mr)
+   (dict-ref mr 'source '()))
+
  ;; Returns member info key value
  (define (member-record-info mr key . defaults)
    (let ((info (dict-ref mr 'info)))

src/members-print.scm

@@ -151,7 +151,7 @@
 
  ;; Nicely prints the member source with any errors recorded.
  (define (print-member-source mr)
-   (let* ((lines (dict-ref mr 'source mr))
+   (let* ((lines (member-source mr))
 	  (file-name (dict-ref mr 'file-name))
 	  (hls (dict-ref mr 'highlights '())))
      (print file-name ":")

src/web-static.scm

@@ -47,6 +47,12 @@
      (with-output-to-file (sprintf "~A.balance" nick)
        (lambda ()
 	 (print (member-total-balance mr))))
+     (with-output-to-file (sprintf "~A.misc" nick)
+       (lambda ()
+	 (let loop ((lines (member-source mr)))
+	   (when (not (null? lines))
+	     (print (car lines))
+	     (loop (cdr lines))))))
      ))
 
  )