deduplication: Fix incorrect use of 'throw'.

* guix/store/deduplication.scm (get-temp-link): In handler, fix call to
'throw'.

diff --git a/guix/store/deduplication.scm b/guix/store/deduplication.scm
index d3139eb..b1cd887 100644 (file)
--- 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