01/08: profiles: ‘read-manifest’ raises to ‘&profile-error’ upon version mismatch.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 06baf4d6ba187e4f56f15692b6013cf1c89df7f1
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Mar 19 15:53:02 2024 +0100

    profiles: ‘read-manifest’ raises to ‘&profile-error’ upon version mismatch.
    
    * guix/profiles.scm (sexp->manifest): In the catch-all clause, raise to
    ‘&profile-error’ in addition to ‘&message’.
    
    Change-Id: Ieb08187b388531c2157bfe67fb1b7319dbbb4ff3
---
 guix/profiles.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/profiles.scm b/guix/profiles.scm
index ce2f8337bf..2d695a52f8 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013-2023 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013-2024 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
 ;;; Copyright © 2014, 2016 Alex Kost <alezost@gmail.com>
 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
@@ -652,6 +652,8 @@ denoting a specific output of a package."
                  vlist-null)))
     (_
      (raise (condition
+             (&profile-error
+              (profile (and=> (source-property sexp 'filename) dirname)))
              (&message (message "unsupported manifest format")))))))
 
 (define (read-manifest port)