From 93002110f492abdcba9d5a012b03c0eac607bafe Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 8 Jul 2014 22:52:14 +0900
Subject: [PATCH] run-application prints help when a command is expected and
 none given

---
 lib/chibi/app.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/app.scm b/lib/chibi/app.scm
index 1ba222b8..315662f6 100644
--- a/lib/chibi/app.scm
+++ b/lib/chibi/app.scm
@@ -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))))))