Further fix handling exceptions when computing channel instances
This commit is contained in:
parent
26a751570c
commit
20ad81f0d4
1 changed files with 1 additions and 1 deletions
|
|
@ -1195,7 +1195,7 @@
|
||||||
"ignoring ~A for ~A\n"
|
"ignoring ~A for ~A\n"
|
||||||
exn
|
exn
|
||||||
system)
|
system)
|
||||||
#f)
|
(cons system #f))
|
||||||
(raise-exception exn)))
|
(raise-exception exn)))
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(with-throw-handler #t
|
(with-throw-handler #t
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue