summaryrefslogtreecommitdiff
path: root/ext/tk
diff options
context:
space:
mode:
Diffstat (limited to 'ext/tk')
-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 bad72b4f7f7..ff1f7640bda 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);
/* --------------------------------------------------------------- */