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)))