packages: Use %store-directory.
* guix/packages.scm (patch-and-repack): Call %store-directory instead of duplicating its code.
This commit is contained in:
parent
0272ee499d
commit
2fdcc6074e
|
@ -466,7 +466,7 @@ IMPORTED-MODULES specify modules to use/import for use by SNIPPET."
|
|||
|
||||
;; SOURCE may be either a directory or a tarball.
|
||||
(and (if (file-is-directory? #+source)
|
||||
(let* ((store (or (getenv "NIX_STORE") "/gnu/store"))
|
||||
(let* ((store (%store-directory))
|
||||
(len (+ 1 (string-length store)))
|
||||
(base (string-drop #+source len))
|
||||
(dash (string-index base #\-))
|
||||
|
|
Loading…
Reference in New Issue