register-finalizer is not unsafe

svn: r11994 original commit: 2bd0019110f83b31d50a075d4bb30e9339299b02
2008-10-12 06:13:46 +00:00 · 2008-10-12 06:13:46 +00:00 · ae40ef8c69
commit ae40ef8c69
parent 84c6b9a032
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 ()