From ae40ef8c699b03fdc4c8f44cc1b80de6be8c2cbc Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 12 Oct 2008 06:13:46 +0000
Subject: [PATCH] register-finalizer is not unsafe

svn: r11994

original commit: 2bd0019110f83b31d50a075d4bb30e9339299b02
---
 collects/mzlib/foreign.ss | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss
index be4163e..c034b4b 100644
--- 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 ()