From 88aab8e3499ef6b6cb63e736ce324bb7910f85dd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 4 May 2015 22:41:31 +0200
Subject: [PATCH] profiles: Use a &message error condition instead of 'error'.
* guix/profiles.scm (sexp->manifest): Use 'raise' instead of 'error'.
---
guix/profiles.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guix/profiles.scm b/guix/profiles.scm
index fd2afc05a3f..8445e007614 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -278,7 +278,8 @@ (define (infer-search-paths name version)
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."
--
GitLab