diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-21 23:39:00 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-21 23:39:00 +0000 |
commit | 8d924bfebc89c3e986b2aa1b199b3c636bd7b0a3 (patch) | |
tree | b4bfed4256b573ead392bd78ae6737d32aa252e5 /libguile/async.c | |
parent | 6587a966932df4748fc44b0543ce1abebfc2c7b4 (diff) | |
download | guile-8d924bfebc89c3e986b2aa1b199b3c636bd7b0a3.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/async.c')
-rw-r--r-- | libguile/async.c | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/libguile/async.c b/libguile/async.c index af892db4c..4cb927423 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -257,6 +257,16 @@ scm_async_click () 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 void @@ -267,21 +277,10 @@ scm_async_click () scm_run_asyncs (scm_asyncs); while (scm_asyncs_pending_p); } -#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 + static SCM |