profiles: manifest-lookup-package: Cosmetic changes.

* guix/profiles.scm (manifest-lookup-package): Rename variables; use
"string=?" instead of "equal?".
This commit is contained in:
Ricardo Wurmus 2016-10-30 07:21:15 +01:00
parent e3c1311a5d
commit 054f60cd31
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 3 additions and 3 deletions

View File

@ -490,12 +490,12 @@ if not found."
inputs)) inputs))
(define (find-among-store-items items) (define (find-among-store-items items)
(find (lambda (item) (find (lambda (item)
(let-values (((pkg-name pkg-version) (let-values (((name* version*)
(package-name->name+version (package-name->name+version
(store-path-package-name item)))) (store-path-package-name item))))
(and (equal? name pkg-name) (and (string=? name name*)
(if version (if version
(string-prefix? version pkg-version) (string-prefix? version version*)
#t)))) #t))))
items)) items))