Improve logging when computing a channel instance derivation fails
This commit is contained in:
parent
062ee1aed2
commit
75f27264a6
1 changed files with 12 additions and 5 deletions
|
|
@ -1159,11 +1159,18 @@
|
|||
(with-resource-from-pool inferior-and-store-pool res
|
||||
(match res
|
||||
((inferior . inferior-store)
|
||||
(cons system
|
||||
(inferior-eval-with-store/non-blocking
|
||||
inferior
|
||||
inferior-store
|
||||
(inferior-code channel-instance 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)))))))
|
||||
systems)))
|
||||
|
||||
(cons
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue