06/07: import: Discard args after --version and --help.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit df3e44cab1078ac6e84df9059a5acccdf9486700
Author: Herman Rimm <herman@rimm.ee>
AuthorDate: Tue Feb 20 21:45:14 2024 +0100

    import: Discard args after --version and --help.
    
    * guix/scripts/import.scm (guix-import): Discard args.
    
    Change-Id: Icce5cd0daf9011f7ddde7904113b31b547f063ef
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/scripts/import.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/import.scm b/guix/scripts/import.scm
index aca4e61f26..1f34cab088 100644
--- a/guix/scripts/import.scm
+++ b/guix/scripts/import.scm
@@ -108,10 +108,10 @@ PROC callback."
     (()
      (format (current-error-port)
              (G_ "guix import: missing importer name~%")))
-    ((or ("-h") ("--help"))
+    ((or ("-h" _ ...) ("--help" _ ...))
      (leave-on-EPIPE (show-help))
      (exit 0))
-    ((or ("-V") ("--version"))
+    ((or ("-V" _ ...) ("--version" _ ...))
      (show-version-and-exit "guix import"))
     ((or ("-i" file importer args ...)
          ("--insert" file importer args ...))