aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-05-04 22:41:31 +0200
committerLudovic Courtès <ludo@gnu.org>2015-05-04 23:30:52 +0200
commit88aab8e3499ef6b6cb63e736ce324bb7910f85dd (patch)
tree96dcfb61e54ee7bdc09c8a9811e5c7fb5bca6212
parent441cfb420ab7979443cc2752b714738151c9c4e6 (diff)
downloadpatches-88aab8e3499ef6b6cb63e736ce324bb7910f85dd.tar
patches-88aab8e3499ef6b6cb63e736ce324bb7910f85dd.tar.gz
profiles: Use a &message error condition instead of 'error'.
* guix/profiles.scm (sexp->manifest): Use 'raise' instead of 'error'.
-rw-r--r--guix/profiles.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index fd2afc05a3..8445e00761 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -278,7 +278,8 @@ procedure is here for backward-compatibility and will eventually vanish."
search-paths))))
name version output path deps search-paths)))
(_
- (error "unsupported manifest format" sexp))))
+ (raise (condition
+ (&message (message "unsupported manifest format")))))))
(define (read-manifest port)
"Return the packages listed in MANIFEST."