diff options
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)) { |