From af2f8ae5f14d272d341148764d256792d8ef06aa Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 3 Jul 2018 00:01:20 +0200 Subject: 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(-) (limited to 'guix/store/deduplication.scm') 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 @@ (define* (get-temp-link target #:optional (link-prefix (dirname target))) (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 -- cgit v1.2.3