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

delay finalizer thread until needed

Browse Source 
svn: r2494
This commit is contained in:
Matthew Flatt 2006-03-24 13:41:41 +00:00
parent 29e9e381c7
commit d7d9efb1ac
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/foreign.ss
View File

@ -1500,8 +1500,10 @@
;; which is not a good idea.
(define killer-executor (make-will-executor))
(define killer-thread
(thread (lambda () (let loop () (will-execute killer-executor) (loop)))))
(delay
(thread (lambda () (let loop () (will-execute killer-executor) (loop))))))
(define* (register-finalizer obj finalizer)
(force killer-thread)
(will-register killer-executor obj finalizer))
(define-unsafer unsafe!)