run-application prints help when a command is expected and none given

This commit is contained in:
Alex Shinn 2014-07-08 22:52:14 +09:00
parent 1e69cbc90f
commit 93002110f4

View file

@ -276,5 +276,8 @@
(if init (init cfg))
(apply proc cfg spec args)
(if end (end cfg)))))
((null? (cdr args))
(apply app-help-command config spec args)
(error "Expected a command"))
(else
(error "Unknown command: " args)))))
(error "Unknown command: " (cdr args))))))