01/03: upstream: Compare symbols to symbols.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit b6441f7bd0257783fffecfc6b6b3c6f2950204c2
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Wed Sep 13 14:06:19 2023 +0200

    upstream: Compare symbols to symbols.
    
    The UNCHANGED? comparison would always yield #FALSE, because we have been
    comparing lists of strings with lists of symbols.
    
    * guix/upstream.scm (update-package-inputs): Convert string labels to 
symbols
    before comparison.
---
 guix/upstream.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/upstream.scm b/guix/upstream.scm
index 33248d645c..e28ae12f3f 100644
--- a/guix/upstream.scm
+++ b/guix/upstream.scm
@@ -1,7 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2010-2023 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
-;;; Copyright © 2019, 2022 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2019, 2022, 2023 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
 ;;; Copyright © 2021, 2022 Maxime Devos <maximedevos@telenet.be>
 ;;; Copyright © 2022 Hartmut Goebel <h.goebel@crazy-compilers.com>
@@ -534,7 +534,8 @@ specified in SOURCE, an <upstream-source>."
     (define old
       (match (package-inputs package)
         (((labels (? package? packages)) ...)
-         labels)
+         labels
+         (map string->symbol labels))
         (_
          '())))