brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix loading.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-25 21:23:27 +01:00
parent 7e7c0f3e32
commit da539a03fd
1 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
members-base.scm
View file

@ -163,16 +163,10 @@
;; 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-dict))
(mr-fn (dict-set mr0 'file-name fname))
(mr-sl (dict-set mr-fn 'symlinks symlinks))
(mr-id (dict-set mr-sl 'id
(string->number
(symbol->string
(get-4digit-symbol-from-list (cons fname symlinks)))))))
(dict-set mr-id 'info
(load-member-file
(make-pathname mdir (symbol->string fname))))))
(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