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
|
(with-resource-from-pool inferior-and-store-pool res
|
||||||
(match res
|
(match res
|
||||||
((inferior . inferior-store)
|
((inferior . inferior-store)
|
||||||
(cons system
|
(with-throw-handler #t
|
||||||
(inferior-eval-with-store/non-blocking
|
(lambda ()
|
||||||
inferior
|
(cons system
|
||||||
inferior-store
|
(inferior-eval-with-store/non-blocking
|
||||||
(inferior-code channel-instance system)))))))
|
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)))
|
systems)))
|
||||||
|
|
||||||
(cons
|
(cons
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue