From 88aab8e3499ef6b6cb63e736ce324bb7910f85dd Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 4 May 2015 22:41:31 +0200
Subject: 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(-)

(limited to 'guix')

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 @@ (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."
-- 
cgit v1.2.3