01/01: packages: Use %store-directory.

[Taylan Ulrich B.]

taylanub pushed a commit to branch core-updates
in repository guix.

commit 2fdcc6074e61ed6375f624c671e8c0fae7bd94b0
Author: Taylan Ulrich Bayırlı/Kammer <address@hidden>
Date:   Fri May 15 10:59:44 2015 +0200

    packages: Use %store-directory.
    
    * guix/packages.scm (patch-and-repack): Call %store-directory instead of
      duplicating its code.
---
 guix/packages.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/guix/packages.scm b/guix/packages.scm
index a979f31..f6dda45 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 #\-))