profiles: manifest-lookup-package: Cosmetic changes.
* guix/profiles.scm (manifest-lookup-package): Rename variables; use "string=?" instead of "equal?".
This commit is contained in:
parent
e3c1311a5d
commit
054f60cd31
|
@ -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))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue