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

.

Browse Source 
original commit: ff1811dcbdfb552a6ea3b50ea36963c487b1ec4f
This commit is contained in:
Eli Barzilay 2004-10-31 08:02:52 +00:00
parent 2740540075
commit 73104ed05b
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

@ -1251,8 +1251,7 @@
(define killer-executor (make-will-executor)) (define killer-executor (make-will-executor))
(define killer-thread (define killer-thread
(thread (lambda () (let loop () (will-execute killer-executor) (loop))))) (thread (lambda () (let loop () (will-execute killer-executor) (loop)))))
(provide (rename register-finalizer* register-finalizer)) (define* (register-finalizer obj finalizer)
(define (register-finalizer* obj finalizer)
(will-register killer-executor obj finalizer)) (will-register killer-executor obj finalizer))
(define-unsafer unsafe!) (define-unsafer unsafe!)