From 5ae37f7114c1abf00983456513a9d1ec65bfeadc Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Wed, 16 Oct 2002 16:09:22 +0000
Subject: [PATCH] (scm_i_thread_root): Do not validate argument.

---
 libguile/coop-threads.c | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/libguile/coop-threads.c b/libguile/coop-threads.c
index cf099cf60..ae00d3428 100644
--- 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)