suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ffi/unsafe: show errors from a finalizer

Browse Source 
Previously, an error from a finalizer would disappear and kill
of the finalizer thread. Now the error is logged and the thread
continues.
This commit is contained in:
Matthew Flatt 2012-08-03 11:06:36 -06:00
parent ebd2e35600
commit 1d8791c7c4
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/ffi/unsafe.rkt
View File

@ -1651,10 +1651,26 @@
_pointer ; break_cell
_scheme ; custodian
_int ; suspend-to-kill?
-> _scheme))])
-> _scheme))]
[logger (current-logger)]
[cweh #f]) ; <- avoids a reference to a module-level binding
(set! cweh call-with-exception-handler)
(set! killer-thread
(thread/details (lambda ()
(let loop () (will-execute killer-executor) (loop)))
(let retry-loop ()
(call-with-continuation-prompt
(lambda ()
(cweh
(lambda (exn)
(log-message logger
(if (exn? exn)
(exn-message exn)
(format "~s" exn))
#f)
(abort-current-continuation void))
(lambda ()
(let loop () (will-execute killer-executor) (loop))))))
(retry-loop)))
min-config
no-cells
#f ; default break cell