From 0dec7d57886a067c66a08fa15265cd8bbd4b86fc Mon Sep 17 00:00:00 2001 From: nobu Date: Sat, 18 Aug 2007 08:44:44 +0000 Subject: * ext/tk/tcltklib.c (Init_tcltklib): use rb_set_end_proc(). git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@13105 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 4 ++++ ext/tk/tcltklib.c | 7 ++----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 00a88d29a7..799f1420dc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +Sat Aug 18 17:44:42 2007 Nobuyoshi Nakada + + * ext/tk/tcltklib.c (Init_tcltklib): use rb_set_end_proc(). + Sat Aug 18 17:40:11 2007 Nobuyoshi Nakada * thread.c (is_ruby_native_thread): check properly. [ruby-dev:31166] diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index d057abbda6..d963f9231a 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 v1.2.3