summaryrefslogtreecommitdiff
path: root/ext
diff options
context:
space:
mode:
authorshyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2007-09-07 06:45:52 +0000
committershyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2007-09-07 06:45:52 +0000
commitef04db77f00578677ac5b19aa884077f24fdf8ec (patch)
tree1eefc8d058344392342456e7df6051c5dd824d0a /ext
parent0c56b5e4a8a99b15239ed98ef5c606aa7efdd95b (diff)
* ext/tk/tcltklib.c (Init_tcltklib): use rb_set_end_proc().
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8_6@13385 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
-rw-r--r--ext/tk/tcltklib.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index bad72b4..ff1f764 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -4364,12 +4364,11 @@ delete_slaves(ip)
/* finalize operation */
-static VALUE
+static void
lib_mark_at_exit(self)
VALUE self;
{
at_exit = 1;
- return Qnil;
}
static int
@@ -7995,8 +7994,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);
@@ -8133,7 +8130,7 @@ Init_tcltklib()
/* --------------------------------------------------------------- */
- rb_eval_string("at_exit{ TclTkLib._mark_at_exit }");
+ rb_set_end_proc(lib_mark_at_exit, 0);
/* --------------------------------------------------------------- */