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

fix custodian problem with register-finalizer

Browse Source 
svn: r14988
This commit is contained in:
Matthew Flatt 2009-05-26 20:01:54 +00:00
parent e1374bcbd9
commit 070ed03d90
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/foreign.ss
View File

@ -1618,9 +1618,11 @@
(define* (register-finalizer obj finalizer) (define* (register-finalizer obj finalizer)
(unless killer-thread (unless killer-thread
(let ([priviledged-custodian ((get-ffi-obj 'scheme_make_custodian #f (_fun _pointer -> _scheme)) #f)])
(set! killer-thread (set! killer-thread
(parameterize ([current-custodian priviledged-custodian])
(thread (lambda () (thread (lambda ()
(let loop () (will-execute killer-executor) (loop)))))) (let loop () (will-execute killer-executor) (loop))))))))
(will-register killer-executor obj finalizer)) (will-register killer-executor obj finalizer))
(define-unsafer unsafe!) (define-unsafer unsafe!)