summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-11-01 04:40:33 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-11-01 04:40:33 +0000
commitd0b7bad7850c311af37da339fb2e883798a734a1 (patch)
tree6284a2445108126a8f1309d0bd052dd594db306f
parentd1306c276b640cebbf02768c9bfc314befcfd772 (diff)
downloadguile-d0b7bad7850c311af37da339fb2e883798a734a1.tar.gz
* eval.c: Don't #define scm_lookupcar to scm_lookupcar1. Instead
make sure that there always is a "real" scm_lookupcar.
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/eval.c7
2 files changed, 10 insertions, 2 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 27d70b12f..7eae7b39e 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+1998-11-01 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
+
+ * eval.c: Don't #define scm_lookupcar to scm_lookupcar1. Instead
+ make sure that there always is a "real" scm_lookupcar.
+
1998-11-01 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* read.c, read.h (history-length, history-file): New read options.
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