summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-10-16 16:09:22 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-10-16 16:09:22 +0000
commit5ae37f7114c1abf00983456513a9d1ec65bfeadc (patch)
treed5fc433e8d256d47e44771f24fd40823c21cb331
parente37d58d53b30a4c84becaef9f3f830f369d53930 (diff)
downloadguile-5ae37f7114c1abf00983456513a9d1ec65bfeadc.tar.gz
(scm_i_thread_root): Do not validate argument.
-rw-r--r--libguile/coop-threads.c3
1 files changed, 0 insertions, 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)