mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

(scm_i_thread_root): Do not validate argument.

Browse source
This commit is contained in:
Marius Vollmer 2002-10-16 16:09:22 +00:00
parent e37d58d53b
commit 5ae37f7114
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/coop-threads.c
View file

@ -395,12 +395,9 @@ scm_all_threads (void)
scm_root_state * scm_root_state *
scm_i_thread_root (SCM thread) 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; return (scm_root_state *)((coop_t *)SCM_THREAD_DATA (thread))->data;
} }
#undef FUNC_NAME
SCM SCM
scm_join_thread (SCM thread) scm_join_thread (SCM thread)