From 21aab5c929f96e6a93889e4bd65241f8aad8e0ee Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Thu, 30 Mar 2000 23:18:39 +0000
Subject: [PATCH] * coop-defs.h, coop-threads.c (struct coop_t): Eliminate
 `sto'-field when GUILE_PTHREAD_COMPAT is enabled.

---
 libguile/coop-threads.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/libguile/coop-threads.c b/libguile/coop-threads.c
index f8b6cc4ff..86194bd70 100644
--- a/libguile/coop-threads.c
+++ b/libguile/coop-threads.c
@@ -69,7 +69,9 @@ scm_threads_init (SCM_STACKITEM *i)
 
   scm_thread_count = 1;
 
+#ifndef GUILE_PTHREAD_COMPAT
   coop_global_main.sto = i;
+#endif
   coop_global_main.base = i;
   coop_global_curr = &coop_global_main;
   coop_all_qput (&coop_global_allq, coop_global_curr);