summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--shroud/ui.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/shroud/ui.scm b/shroud/ui.scm
index 51cb412..7f22fd1 100644
--- a/shroud/ui.scm
+++ b/shroud/ui.scm
@@ -153,9 +153,13 @@ ARGS is the list of arguments received by the 'throw' handler."
(define (shroud-main . args)
(match args
(() (show-usage))
- ((or ("-h") ("--help"))
+ ;; Match if first argument is "-h" or "--help", ignoring the rest
+ ;; of the arguments.
+ (((or "-h" "--help") . _)
(show-help))
- (("--version")
+ ;; Match if first argument is "--version", ignoring the rest of
+ ;; the arguments.
+ (("--version" . _)
(show-version-and-exit))
(((? option? opt) _ ...)
(format (current-error-port) "shroud: unrecognized option '~a'~%" opt))