deduplication: Fix incorrect use of 'throw'.

* guix/store/deduplication.scm (get-temp-link): In handler, fix call to
'throw'.
This commit is contained in:
Ludovic Courtès 2018-07-03 00:01:20 +02:00
parent 71bf6cb700
commit af2f8ae5f1
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions

View File

@ -88,7 +88,7 @@ LINK-PREFIX."
(lambda args (lambda args
(if (= (system-error-errno args) EEXIST) (if (= (system-error-errno args) EEXIST)
(try (tempname-in link-prefix)) (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 ;; 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 ;; things link to this" (EMLINK), "this link already exists" (EEXIST), and