diff options
-rw-r--r-- | ext/tk/tcltklib.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index b3d717f0fa..a8cc1222b6 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -270,11 +270,7 @@ static CONST86 Tcl_ObjType *Tcl_ObjType_String; #endif #ifndef HAVE_RB_THREAD_ALIVE_P -static VALUE -rb_thread_alive_p(VALUE thread) -{ - return rb_funcall(thread, ID_alive_p, 0, 0); -} +#define rb_thread_alive_p(thread) rb_funcall2((thread), ID_alive_p, 0, NULL) #endif /* safe Tcl_Eval and Tcl_GlobalEval */ |