git-version: Raise a condition instead of an error.

* guix/git-download.scm (git-version): Replace ERROR with RAISE
  and CONDITION.

This is a follow-up to commit bbf6bc1acc9bbdebf7ee7b68c0fa091733a5f6e1.

diff --git a/guix/git-download.scm b/guix/git-download.scm
index ef0bb2e..a1c1adf 100644 (file)
--- a/guix/git-download.scm
+++ b/guix/git-download.scm
@@ -179,7 +179,9 @@ HASH-ALGO (a symbol).  Use NAME as the file name, or a generic name if #f."
   ;; can happen, for example, when the user swapped the revision and commit
   ;; arguments by mistake.
   (when (< (string-length commit) 7)
-    (error "git-version: commit ID unexpectedly short"))
+    (raise
+      (condition
+        (&message (message "git-version: commit ID unexpectedly short")))))
   (string-append version "-" revision "." (string-take commit 7)))
 
 (define (git-file-name name version)