aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-07-03 00:01:20 +0200
committerLudovic Courtès <ludo@gnu.org>2018-07-03 00:39:11 +0200
commitaf2f8ae5f14d272d341148764d256792d8ef06aa (patch)
tree22f53a05972a7d7db9b675739a47c4156136d30f
parent71bf6cb700965cfe5b8f3661315017b022d0aca1 (diff)
downloadguix-af2f8ae5f14d272d341148764d256792d8ef06aa.tar
guix-af2f8ae5f14d272d341148764d256792d8ef06aa.tar.gz
deduplication: Fix incorrect use of 'throw'.
* guix/store/deduplication.scm (get-temp-link): In handler, fix call to 'throw'.
-rw-r--r--guix/store/deduplication.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/store/deduplication.scm b/guix/store/deduplication.scm
index d3139eb904..b1cd8873ae 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