[functional-tests] print help if there's a bad command line

This commit is contained in:
Joe Thornber 2017-08-31 12:22:42 +01:00
parent fe1f46ae07
commit c2b5730d6b

View File

@ -152,7 +152,9 @@
list-command-line)) list-command-line))
(define (bad-command-line) (define (bad-command-line)
(fmt (current-error-port) (dsp "bad command line\n"))) (fmt (current-error-port) (dsp "bad command line\n"))
(exec-help)
(exit 1))
;; (<string>) -> thunk ;; (<string>) -> thunk
(define (parse-command-line) (define (parse-command-line)