summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 5062dc7b6..b446252ad 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -242,8 +242,13 @@ scm_ilookup (iloc, env)
#endif /* USE_THREADS */
+#ifdef USE_THREADS
static SCM *
scm_lookupcar1 (SCM vloc, SCM genv)
+#else
+SCM *
+scm_lookupcar (SCM vloc, SCM genv)
+#endif
{
SCM env = genv;
register SCM *al, fl, var = SCM_CAR (vloc);
@@ -371,8 +376,6 @@ scm_lookupcar (vloc, genv)
abort ();
return loc;
}
-#else /* not USE_THREADS */
-#define scm_lookupcar scm_lookupcar1
#endif
#define unmemocar scm_unmemocar