summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1997-06-21 05:53:04 +0000
committerJim Blandy <jimb@red-bean.com>1997-06-21 05:53:04 +0000
commite3173f937c5ccd113bc22741ddde029908cc4dce (patch)
treea3966a841a389ff11017433691ab6bea8ffa3dcb /libguile
parent1773993b8f9cb80ca9baef360cc1646889ed1f2a (diff)
downloadguile-e3173f937c5ccd113bc22741ddde029908cc4dce.tar.gz
* 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.
Diffstat (limited to 'libguile')
-rw-r--r--libguile/eval.c7
1 files changed, 6 insertions, 1 deletions
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))
{