Rename constructor.
This commit is contained in:
parent
6b5821ac2e
commit
c854fed99d
2 changed files with 11 additions and 11 deletions
|
@ -149,9 +149,9 @@
|
|||
;; member-file module returns. The id key contains whatever is the
|
||||
;; first 4-digit symbol in (cons fname aliases) list.
|
||||
(define (members-dir-load-member mdir fname symlinks)
|
||||
(let* ((mr0 (make-member-record fname
|
||||
(make-pathname mdir (symbol->string fname))
|
||||
symlinks)))
|
||||
(let* ((mr0 (make-brmember fname
|
||||
(make-pathname mdir (symbol->string fname))
|
||||
symlinks)))
|
||||
(load-member-file mr0)))
|
||||
|
||||
;; Performs self-tests of this module.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue