mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* __scm.h (USE_THREADS, GUILE_ISELECT): Define when

Browse source 
SCM_DEBUG_DEPRECATED.  Removed their use thru-out Guile.
This commit is contained in:
Marius Vollmer 2002-11-03 22:09:20 +00:00
parent 5cbed2d017
commit 3d7f708f21
20 changed files with 26 additions and 284 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/async.c
View file

@ -248,7 +248,6 @@ SCM_DEFINE (scm_system_async_mark_for_thread, "system-async-mark", 1, 1, 0,
"signal handlers.")
#define FUNC_NAME s_scm_system_async_mark_for_thread
{
#ifdef USE_THREADS
if (SCM_UNBNDP (thread))
thread = scm_current_thread ();
else
@ -259,9 +258,6 @@ SCM_DEFINE (scm_system_async_mark_for_thread, "system-async-mark", 1, 1, 0,
}
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F),
scm_i_thread_root (thread));
#else
scm_i_queue_async_cell (scm_cons (proc, SCM_BOOL_F), scm_root);
#endif
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME