mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 22:16:32 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

deduplication: Fix incorrect use of 'throw'.

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/store/deduplication.scm
View file

@ -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