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

register-finalizer is not unsafe

Browse Source 
svn: r11994

original commit: 2bd0019110f83b31d50a075d4bb30e9339299b02
This commit is contained in:
Eli Barzilay 2008-10-12 06:13:46 +00:00
parent 84c6b9a032
commit ae40ef8c69
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mzlib/foreign.ss
View File

@ -1567,8 +1567,7 @@
(define killer-executor (make-will-executor)) (define killer-executor (make-will-executor))
(define killer-thread #f) (define killer-thread #f)
(provide* (unsafe register-finalizer)) (define* (register-finalizer obj finalizer)
(define (register-finalizer obj finalizer)
(unless killer-thread (unless killer-thread
(set! killer-thread (set! killer-thread
(thread (lambda () (thread (lambda ()