summaryrefslogtreecommitdiff
path: root/guix/profiles.scm
diff options
context:
space:
mode:
authorLeo Famulari <leo@famulari.name>2016-10-30 19:19:21 -0400
committerLeo Famulari <leo@famulari.name>2016-10-30 19:19:21 -0400
commit205f0107bb894745ee740227c090ff90ee599915 (patch)
tree08b2ddba47ce404468d6aba31b768e013dfb1fa3 /guix/profiles.scm
parenta8dd960ac0c68957dac281812f0d16f1295a6eaa (diff)
parentb89cbf5832fd920ef85002041bc690204b0174a3 (diff)
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/profiles.scm')
-rw-r--r--guix/profiles.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index d162f6241b..6a9e570a3f 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -490,12 +490,12 @@ if not found."
inputs))
(define (find-among-store-items items)
(find (lambda (item)
- (let-values (((pkg-name pkg-version)
+ (let-values (((name* version*)
(package-name->name+version
(store-path-package-name item))))
- (and (equal? name pkg-name)
+ (and (string=? name name*)
(if version
- (string-prefix? version pkg-version)
+ (string-prefix? version version*)
#t))))
items))