Improve logging when computing a channel instance derivation fails

This commit is contained in:
Christopher Baines 2024-01-27 18:41:02 +00:00
parent 062ee1aed2
commit 75f27264a6

View file

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