raco {pkg,planet}: exit with non-0 status for bad sub-command

2014-07-03 12:39:12 +01:00 · 2014-07-03 12:39:12 +01:00 · 82326631a9
commit 82326631a9
parent b99260bb32
1 changed files with 4 additions and 3 deletions
--- a/racket/collects/planet/private/command.rkt
+++ b/racket/collects/planet/private/command.rkt
@ -82,9 +82,10 @@
                                  (newline)
                                  (display "Usage:\n")
                                  (display help-string)
-                                  (exit))))] ...
-                                  ["help" (help)]
-                                  [else (help)])))))]))
+                                  (exit))))]
+                            ...
+                            ["help" (help)]
+                            [else (begin (help) (exit 1))])))))]))


 ;; display-help-message : string string (listof (list string string)) -> void