From 790071cdc8fcd0ea73333585fb38f44beced1c9c Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 4 Jun 2000 01:29:54 +0000 Subject: [PATCH] * eval.c (scm_lookupcar): Test for !SCM_CONSP (SCM_CAR (env)) instead of SCM_TRUE (scm_procedurep (SCM_CAR (env))). --- libguile/eval.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/libguile/eval.c b/libguile/eval.c index 22df064aa..badeffeee 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -273,7 +273,7 @@ scm_lookupcar (SCM vloc, SCM genv, int check) #endif for (; SCM_NIMP (env); env = SCM_CDR (env)) { - if (SCM_TRUE_P (scm_procedure_p (SCM_CAR (env)))) + if (!SCM_CONSP (SCM_CAR (env))) break; al = SCM_CARLOC (env); for (fl = SCM_CAR (*al); SCM_NIMP (fl); fl = SCM_CDR (fl)) @@ -323,9 +323,9 @@ scm_lookupcar (SCM vloc, SCM genv, int check) } { SCM top_thunk, vcell; - if (SCM_NIMP(env)) + if (SCM_NIMP (env)) { - top_thunk = SCM_CAR(env); /* env now refers to a top level env thunk */ + top_thunk = SCM_CAR (env); /* env now refers to a top level env thunk */ env = SCM_CDR (env); } else