From e3173f937c5ccd113bc22741ddde029908cc4dce Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Sat, 21 Jun 1997 05:53:04 +0000
Subject: [PATCH] * eval.c (scm_lookupcar1): Don't declare var2 unless
 USE_THREADS is defined, to avoid warnings; it's only used in the
 conflict-checking code.  Which might go away anyway. (SCM_CEVAL): All goto's
 targeting the `dispatch' label are in conditionals; put the label definition
 in an #if too, to stifle warnings.

---
 libguile/eval.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/libguile/eval.c b/libguile/eval.c
index 902fe1e4e..a132fb1d8 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -265,7 +265,10 @@ scm_lookupcar1 (vloc, genv)
      SCM genv;
 {
   SCM env = genv;
-  register SCM *al, fl, var = SCM_CAR (vloc), var2 = var;
+  register SCM *al, fl, var = SCM_CAR (vloc);
+#ifdef USE_THREADS
+  register SCM var2 = var;
+#endif
 #ifdef MEMOIZE_LOCALS
   register SCM iloc = SCM_ILOC00;
 #endif
@@ -1561,7 +1564,9 @@ start:
 		    0);
       }
 #endif
+#if defined (USE_THREADS) || defined (DEVAL)
 dispatch:
+#endif
   SCM_ASYNC_TICK;
   switch (SCM_TYP7 (x))
     {
-- 
2.20.1