Browse Source

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

master
Silas Vedder 2 years ago
parent
commit
e0e48665f8
  1. 18
      scripts/read-bible.in

18
scripts/read-bible.in

@ -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))))))

Loading…
Cancel
Save