From da539a03fd057f7a270b9e90b95ddaaefa8d34c0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 25 Mar 2023 21:23:27 +0100 Subject: [PATCH] Fix loading. --- members-base.scm | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/members-base.scm b/members-base.scm index d9c1792..033c337 100644 --- a/members-base.scm +++ b/members-base.scm @@ -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