diff options
| -rw-r--r-- | shroud/ui.scm | 8 |
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)) |