summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
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))
{