Optional progress in loading the members-base.
This commit is contained in:
parent
62882aab27
commit
e26b78b254
3 changed files with 25 additions and 16 deletions
|
@ -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!)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue