Move more into dir.

members-base.scm

@@ -64,15 +64,6 @@
 	 table
 	 members-dir)
  
- ;; Returns a dictionary containing file-name, symlinks, id and info
- ;; keys. The info key contains whatever load-member-file from the
- ;; member-file module returns. The id key contains whatever is the
- ;; first 4-digit symbol in (cons fname aliases) list.
- (define (members-base-load-member mdir fname symlinks)
-   (let* ((mr0 (make-member-record fname
-				   (make-pathname mdir (symbol->string fname))
-				   symlinks)))
-     (load-member-file mr0)))
 
  ;; Loads members database, if the second argument is true, shows
  ;; progress. Members database is a dictionary with id being the key
@@ -87,9 +78,9 @@
 		   (lambda (symfn symlinks)
 		     (when progress?
 		       (progress-advance "."))
-		     (members-base-load-member dn
-					       symfn
-					       symlinks))
+		     (members-dir-load-member dn
+					      symfn
+					      symlinks))
 		   fss))
 	     (mb1 (dict-reduce (make-dict)
 			       (lambda (acc symfn mr)