Ignore inferior-protocol-error when computing channel instances
Since this seems to happen for i586-gnu for core-updates currently and I can't seem to reproduce the issue locally or work out what's wrong.
This commit is contained in:
parent
7acb38377e
commit
215a67238a
1 changed files with 21 additions and 11 deletions
|
|
@ -1184,18 +1184,28 @@
|
|||
(with-resource-from-pool inferior-and-store-pool res
|
||||
(match res
|
||||
((inferior . inferior-store)
|
||||
(with-throw-handler #t
|
||||
(with-exception-handler
|
||||
(lambda (exn)
|
||||
(if (inferior-protocol-error? exn)
|
||||
(simple-format (current-error-port)
|
||||
"ignoring ~A for ~A\n"
|
||||
exn
|
||||
system)
|
||||
(raise-exception exn)))
|
||||
(lambda ()
|
||||
(cons system
|
||||
(inferior-eval-with-store/non-blocking
|
||||
inferior
|
||||
inferior-store
|
||||
(inferior-code channel-instance system))))
|
||||
(lambda _
|
||||
(simple-format
|
||||
(current-error-port)
|
||||
"failed to compute channel instance derivation for ~A\n"
|
||||
system)))))))
|
||||
(with-throw-handler #t
|
||||
(lambda ()
|
||||
(cons system
|
||||
(inferior-eval-with-store/non-blocking
|
||||
inferior
|
||||
inferior-store
|
||||
(inferior-code channel-instance system))))
|
||||
(lambda _
|
||||
(simple-format
|
||||
(current-error-port)
|
||||
"failed to compute channel instance derivation for ~A\n"
|
||||
system))))
|
||||
#:unwind? #t)))))
|
||||
systems)))
|
||||
|
||||
(for-each
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue