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"
|
||||
exn
|
||||
system)
|
||||
#f)
|
||||
(cons system #f))
|
||||
(raise-exception exn)))
|
||||
(lambda ()
|
||||
(with-throw-handler #t
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue