diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-11-01 04:40:33 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-11-01 04:40:33 +0000 |
commit | d0b7bad7850c311af37da339fb2e883798a734a1 (patch) | |
tree | 6284a2445108126a8f1309d0bd052dd594db306f | |
parent | d1306c276b640cebbf02768c9bfc314befcfd772 (diff) | |
download | guile-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/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/eval.c | 7 |
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 |