mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-21 23:39:00 +00:00
parent 6587a96693
commit 8d924bfebc
1 changed files with 11 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

23
libguile/async.c
View file

@ -257,6 +257,16 @@ scm_async_click ()
scm_switch (); scm_switch ();
} }
void
scm_switch ()
{
#if 0 /* Thread switching code should probably reside here, but the
async switching code doesn't seem to work, so it's put in the
SCM_DEFER_INTS macro instead. /mdj */
SCM_THREAD_SWITCHING_CODE;
#endif
}
#else #else
void void
@ -267,20 +277,9 @@ scm_async_click ()
scm_run_asyncs (scm_asyncs); scm_run_asyncs (scm_asyncs);
while (scm_asyncs_pending_p); while (scm_asyncs_pending_p);
} }
#endif #endif
#if 0 /* Thread switching code should probably reside here, but the
async switching code doesn't seem to work, so it's put in the
SCM_DEFER_INTS macro instead. /mdj */
void
scm_switch ()
{
SCM_THREAD_SWITCHING_CODE;
}
#endif