diff options
author | Jim Blandy <jimb@red-bean.com> | 1997-06-21 05:53:04 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1997-06-21 05:53:04 +0000 |
commit | e3173f937c5ccd113bc22741ddde029908cc4dce (patch) | |
tree | a3966a841a389ff11017433691ab6bea8ffa3dcb /libguile | |
parent | 1773993b8f9cb80ca9baef360cc1646889ed1f2a (diff) | |
download | guile-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.c | 7 |
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)) { |