From f5a0dbcb8b54001aa27170e7366dda88986a1f69 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 18 Aug 2007 08:44:44 +0000
Subject: * ext/tk/tcltklib.c (Init_tcltklib): use rb_set_end_proc().

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@13105 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/tcltklib.c | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'ext')

diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index d057abbda..d963f9231 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -4358,12 +4358,11 @@ delete_slaves(ip)
 
 
 /* finalize operation */
-static VALUE
+static void
 lib_mark_at_exit(self)
     VALUE self;
 {
     at_exit = 1;
-    return Qnil;
 }
 
 static int
@@ -7978,8 +7977,6 @@ Init_tcltklib()
 
     /* --------------------------------------------------------------- */
 
-    rb_define_module_function(lib, "_mark_at_exit", lib_mark_at_exit, 0);
-
     rb_define_module_function(lib, "mainloop", lib_mainloop, -1);
     rb_define_module_function(lib, "mainloop_thread?", 
                               lib_evloop_thread_p, 0);
@@ -8116,7 +8113,7 @@ Init_tcltklib()
 
     /* --------------------------------------------------------------- */
 
-    rb_eval_string("at_exit{ TclTkLib._mark_at_exit }");
+    rb_set_end_proc(lib_mark_at_exit, 0);
 
     /* --------------------------------------------------------------- */
 
-- 
cgit