Rename constructor.

This commit is contained in:
Dominik Pantůček 2023-04-11 21:55:55 +02:00
parent 6b5821ac2e
commit c854fed99d
2 changed files with 11 additions and 11 deletions

View file

@ -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.