Rename initial accessors.

src/brmember.scm

@@ -31,9 +31,9 @@
  (
   make-brmember
 
-  member-file-name
-  member-file-path
-  member-record-input-file
+  brmember-file-name
+  brmember-file-path
+  brmember-input-file
 
   member-record-set
   member-record-add-highlight
@@ -130,15 +130,15 @@
 			     pairs)))))))
 
  ;; File name without directory
- (define (member-file-name mr)
+ (define (brmember-file-name mr)
    (ldict-ref mr 'file-name))
 
  ;; Convenience accessor for file name with directory
- (define (member-file-path mr)
+ (define (brmember-file-path mr)
    (ldict-ref mr 'file-path))
  
  ;; Returns opened input file for this record (used by parser).
- (define (member-record-input-file mr)
+ (define (brmember-input-file mr)
    (open-input-file
     (ldict-ref mr 'file-path)))
 

src/hackerbase.scm

@@ -297,7 +297,7 @@
    (gen-web-static MB (-web-dir-)))
   ((edit)
    (if mr
-       (edit-file (member-file-path mr))
+       (edit-file (brmember-file-path mr))
        (print "No member to edit.")))
   ((no-op) (void))
   ((unpaired)

src/member-parser.scm

@@ -222,7 +222,7 @@
 
  ;; Loads member file source. Performs passes 0, 1 and 2.
  (define (load-member-file mr)
-   (let* ((mrif (member-record-input-file mr))
+   (let* ((mrif (brmember-input-file mr))
 	  (source (read-lines mrif))
 	  (mrp (parse-member-lines mr source)))
      (member-schema-finalize

src/members-print.scm

@@ -288,7 +288,7 @@
        (newline)
        (print "Member files with errors (" (length pmrs) "): "
 	      (string-intersperse
-	       (map member-file-path pmrs)
+	       (map brmember-file-path pmrs)
 	       ", "))))
    (let ((pmrs (filter-members-by-predicate mb (lambda (mr)
 						 (and (member-has-highlights? mr)
@@ -297,7 +297,7 @@
        (newline)
        (print "Member files with issues: "
 	      (string-intersperse
-	       (map member-file-path pmrs)
+	       (map brmember-file-path pmrs)
 	       ", ")))))
 
  ;; Prints the stats in format used by gnuplot.

src/web-static.scm

@@ -74,7 +74,7 @@
 		      (sprintf "git -C \"~A\" log -p -- \"~A\""
 			       (string-translate* (*members-directory*)
 						  '(("\"" . "\\\"")))
-			       (member-file-name mr)
+			       (brmember-file-name mr)
 			       ))))
 	   (when (not (null? lines))
 	     (print (car lines))