05/06: deduplication: Fix incorrect use of 'throw'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit af2f8ae5f14d272d341148764d256792d8ef06aa
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jul 3 00:01:20 2018 +0200

    deduplication: Fix incorrect use of 'throw'.
    
    * guix/store/deduplication.scm (get-temp-link): In handler, fix call to
    'throw'.
---
 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 d3139eb..b1cd887 100644
--- a/guix/store/deduplication.scm
+++ b/guix/store/deduplication.scm
@@ -88,7 +88,7 @@ LINK-PREFIX."
       (lambda args
         (if (= (system-error-errno args) EEXIST)
             (try (tempname-in link-prefix))
-            (throw 'system-error args))))))
+            (apply throw args))))))
 
 ;; There are 3 main kinds of errors we can get from hardlinking: "Too many
 ;; things link to this" (EMLINK), "this link already exists" (EEXIST), and