profiles: Use a &message error condition instead of 'error'.

* guix/profiles.scm (sexp->manifest): Use 'raise' instead of 'error'.
This commit is contained in:
Ludovic Courtès 2015-05-04 22:41:31 +02:00
parent 441cfb420a
commit 88aab8e349
1 changed files with 2 additions and 1 deletions

View File

@ -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."