silasfox/bible-tools
1
0
Fork 0
Code Issues Pull Requests Projects Releases 1 Wiki Activity

Bugfix in read-bible.in: help message displayed w/o args

Browse Source
This commit is contained in:
Silas Vedder 2022-10-20 21:16:34 +02:00
parent 7c0796ea34
commit e0e48665f8
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
scripts/read-bible.in
View File

@ -31,11 +31,13 @@ exec guile -e '(@ (read-bible) main)' -s "$0" "$@"
(define-syntax conf (define-syntax conf
(syntax-rules (else) (syntax-rules (else)
((_ (f e)... (else g)) (cond ((flag? f) e)... (else g))))) ((_ (f e)... (else g)) (cond ((flag? f) e)... (else g)))))
(with-bible (cadr args) (if (< (length args) 2)
(conf ("-h" (help)) (help)
("-v" (version)) (with-bible (cadr args)
("-b" (if (flag? "-c") (conf ("-h" (help))
(call-with-chapter (get "-b") (get "-c") ("-v" (version))
print-text) ("-b" (if (flag? "-c")
(call-with-book (get "-b") print-text))) (call-with-chapter (get "-b") (get "-c")
(else (help))))) print-text)
(call-with-book (get "-b") print-text)))
(else (help))))))