03/07: deduplication: Fix default value of #:store in 'deduplicate'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 6b654a33324d3b9b122512fce2d4440ea06b46e6
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Jun 25 10:15:38 2020 +0200

    deduplication: Fix default value of #:store in 'deduplicate'.
    
    * guix/store/deduplication.scm (deduplicate): Change #:store default
    value to (%store-directory).
---
 guix/store/deduplication.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/store/deduplication.scm b/guix/store/deduplication.scm
index af52c03..6c0f57d 100644
--- a/guix/store/deduplication.scm
+++ b/guix/store/deduplication.scm
@@ -143,7 +143,7 @@ Note: TARGET, TO-REPLACE, and SWAP-DIRECTORY must be on the 
same file system."
           (unless (= EMLINK (system-error-errno args))
             (apply throw args)))))))
 
-(define* (deduplicate path hash #:key (store %store-directory))
+(define* (deduplicate path hash #:key (store (%store-directory)))
   "Check if a store item with sha256 hash HASH already exists.  If so,
 replace PATH with a hardlink to the already-existing one.  If not, register
 PATH so that future duplicates can hardlink to it.  PATH is assumed to be