From dc3f1809cf4637fcf30d9c1789fa0eb96aefd0f5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 17 Feb 2013 16:25:30 +0100
Subject: [PATCH] scripts: Remove hyphen in the command name shown by
 `--version'.

* guix/scripts/build.scm (%options): Remove hyphen from the name passed
  to `show-version-and-exit'.
* guix/scripts/download.scm (%options): Likewise.
* guix/scripts/gc.scm (%options): Likewise.
* guix/scripts/import.scm (%options): Likewise.
* guix/scripts/package.scm (%options): Likewise.
---
 guix/scripts/build.scm    | 2 +-
 guix/scripts/download.scm | 2 +-
 guix/scripts/gc.scm       | 2 +-
 guix/scripts/import.scm   | 2 +-
 guix/scripts/package.scm  | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index 3e241ca9da..7863fb881b 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -105,7 +105,7 @@ Build the given PACKAGE-OR-DERIVATION and return their output paths.\n"))
                   (exit 0)))
         (option '(#\V "version") #f #f
                 (lambda args
-                  (show-version-and-exit "guix-build")))
+                  (show-version-and-exit "guix build")))
 
         (option '(#\S "source") #f #f
                 (lambda (opt name arg result)
diff --git a/guix/scripts/download.scm b/guix/scripts/download.scm
index 790cf9fc2f..10370e59af 100644
--- a/guix/scripts/download.scm
+++ b/guix/scripts/download.scm
@@ -104,7 +104,7 @@ and the hash of its contents.\n"))
                   (exit 0)))
         (option '(#\V "version") #f #f
                 (lambda args
-                  (show-version-and-exit "guix-download")))))
+                  (show-version-and-exit "guix download")))))
 
 
 ;;;
diff --git a/guix/scripts/gc.scm b/guix/scripts/gc.scm
index 8e2587186e..f2d2e17d4b 100644
--- a/guix/scripts/gc.scm
+++ b/guix/scripts/gc.scm
@@ -97,7 +97,7 @@ interpreted."
                   (exit 0)))
         (option '(#\V "version") #f #f
                 (lambda args
-                  (show-version-and-exit "guix-gc")))
+                  (show-version-and-exit "guix gc")))
 
         (option '(#\C "collect-garbage") #f #t
                 (lambda (opt name arg result)
diff --git a/guix/scripts/import.scm b/guix/scripts/import.scm
index f0aaa80aa0..0b95afced1 100644
--- a/guix/scripts/import.scm
+++ b/guix/scripts/import.scm
@@ -85,7 +85,7 @@ Import and convert the Nix expression ATTRIBUTE of NIXPKGS.\n"))
                   (exit 0)))
         (option '(#\V "version") #f #f
                 (lambda args
-                  (show-version-and-exit "guix-import")))))
+                  (show-version-and-exit "guix import")))))
 
 
 ;;;
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 559be50824..23786fb7d8 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -327,7 +327,7 @@ Install, remove, or upgrade PACKAGES in a single transaction.\n"))
                   (exit 0)))
         (option '(#\V "version") #f #f
                 (lambda args
-                  (show-version-and-exit "guix-package")))
+                  (show-version-and-exit "guix package")))
 
         (option '(#\i "install") #t #f
                 (lambda (opt name arg result)