From f25e55cb875b64a84c2e1f9e24722b129ba07ce0 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 28 Mar 2013 13:11:00 +0000
Subject: tcltklib.c: rb_thread_alive_p macro

* ext/tk/tcltklib.c (rb_thread_alive_p): turn into a macro, so that
  same code is generated.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@39986 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/tcltklib.c | 6 +-----
 1 file changed, 1 insertion(+), 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 */
-- 
cgit v1.2.3