From 2fdcc6074e61ed6375f624c671e8c0fae7bd94b0 Mon Sep 17 00:00:00 2001 From: Taylan Ulrich Bayırlı/Kammer Date: Fri, 15 May 2015 10:59:44 +0200 Subject: packages: Use %store-directory. * guix/packages.scm (patch-and-repack): Call %store-directory instead of duplicating its code. --- guix/packages.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'guix') diff --git a/guix/packages.scm b/guix/packages.scm index a979f31a32..f6dda451ad 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -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 #\-)) -- cgit v1.2.3