From d0b7bad7850c311af37da339fb2e883798a734a1 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 1 Nov 1998 04:40:33 +0000 Subject: [PATCH] * eval.c: Don't #define scm_lookupcar to scm_lookupcar1. Instead make sure that there always is a "real" scm_lookupcar. --- libguile/ChangeLog | 5 +++++ 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 + + * 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 * 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