(scm_i_thread_root): Do not validate argument.

diff --git a/libguile/coop-threads.c b/libguile/coop-threads.c
index cf099cf..ae00d34 100644 (file)
--- a/libguile/coop-threads.c
+++ b/libguile/coop-threads.c
@@ -395,12 +395,9 @@ scm_all_threads (void)
 
 scm_root_state *
 scm_i_thread_root (SCM thread)
-#define FUNC_NAME "scm_i_thread_root"
 {
-  SCM_VALIDATE_THREAD (1, thread);
   return (scm_root_state *)((coop_t *)SCM_THREAD_DATA (thread))->data;
 }
-#undef FUNC_NAME
 
 SCM
 scm_join_thread (SCM thread)