15 lines
437 B
Scheme
15 lines
437 B
Scheme
(load "utils.scm")
|
|
|
|
(define load-questions (lambda (name)
|
|
;load and parse files
|
|
(define load-questions-tail (lambda (file questions)
|
|
(let ([line (get-line file)])
|
|
(if (eof-object? line)
|
|
questions
|
|
(load-questions-tail file (append questions (list (line->question line))))
|
|
)
|
|
)
|
|
))
|
|
(load-questions-tail (open-input-file (string-append "~/.local/share/ming-wm/flashcards/" name ".flashq")) '())
|
|
))
|