Avoid raising an unhandled exception
This commit is contained in:
parent
4d04a7f47b
commit
8eb5c047b9
1 changed files with 7 additions and 1 deletions
|
|
@ -2929,7 +2929,13 @@ WHERE builder != 'builtin:download'
|
||||||
;; Prompt getting the guix-revision-id as soon as possible
|
;; Prompt getting the guix-revision-id as soon as possible
|
||||||
(spawn-fiber
|
(spawn-fiber
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(fibers-force guix-revision-id-promise)))
|
(with-exception-handler
|
||||||
|
(lambda _
|
||||||
|
;; Silently handle this exception
|
||||||
|
#f)
|
||||||
|
(lambda ()
|
||||||
|
(fibers-force guix-revision-id-promise))
|
||||||
|
#:unwind? #t)))
|
||||||
|
|
||||||
(let* ((guix-source
|
(let* ((guix-source
|
||||||
channel-derivations-by-system
|
channel-derivations-by-system
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue