summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-21 23:39:00 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-21 23:39:00 +0000
commit8d924bfebc89c3e986b2aa1b199b3c636bd7b0a3 (patch)
treeb4bfed4256b573ead392bd78ae6737d32aa252e5 /libguile/async.c
parent6587a966932df4748fc44b0543ce1abebfc2c7b4 (diff)
downloadguile-8d924bfebc89c3e986b2aa1b199b3c636bd7b0a3.tar.gz
*** empty log message ***
Diffstat (limited to 'libguile/async.c')
-rw-r--r--libguile/async.c23
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