Further fix handling exceptions when computing channel instances

This commit is contained in:
Christopher Baines 2024-02-13 10:35:04 +00:00
parent 26a751570c
commit 20ad81f0d4

View file

@ -1195,7 +1195,7 @@
"ignoring ~A for ~A\n"
exn
system)
#f)
(cons system #f))
(raise-exception exn)))
(lambda ()
(with-throw-handler #t