register-finalizer is not unsafe

svn: r11994
2008-10-12 06:13:46 +00:00 · 2008-10-12 06:13:46 +00:00 · 2bd0019110
commit 2bd0019110
parent b46a5091ba
1 changed files with 1 additions and 2 deletions
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@ -1567,8 +1567,7 @@
 (define killer-executor (make-will-executor))
 (define killer-thread #f)

-(provide* (unsafe register-finalizer))
-(define (register-finalizer obj finalizer)
+(define* (register-finalizer obj finalizer)
  (unless killer-thread
    (set! killer-thread
          (thread (lambda ()