From 8d924bfebc89c3e986b2aa1b199b3c636bd7b0a3 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Tue, 21 Mar 2000 23:39:00 +0000
Subject: [PATCH] *** empty log message ***

---
 libguile/async.c | 23 +++++++++++------------
 1 file 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,20 +277,9 @@ 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