Optional progress in loading the members-base.

This commit is contained in:
Dominik Pantůček 2023-03-16 10:50:29 +01:00
parent 62882aab27
commit e26b78b254
3 changed files with 25 additions and 16 deletions

View file

@ -215,10 +215,8 @@
;; Loads lines from given file and parses them.
(define (load-member-file ffn)
(let* ((f (open-input-file ffn))
(ls (read-lines f))
(md (parse-member-lines ls ffn)))
(display ".")
md))
(ls (read-lines f)))
(parse-member-lines ls ffn)))
;; Performs self-tests of the member-file module.
(define (member-file-tests!)