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