diff options
author | Ludovic Courtès <ludo@gnu.org> | 2015-05-04 22:41:31 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2015-05-04 23:30:52 +0200 |
commit | 88aab8e3499ef6b6cb63e736ce324bb7910f85dd (patch) | |
tree | 96dcfb61e54ee7bdc09c8a9811e5c7fb5bca6212 | |
parent | 441cfb420ab7979443cc2752b714738151c9c4e6 (diff) | |
download | patches-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.scm | 3 |
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." |