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))
(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))