mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-13 17:20:21 +02:00
Code Activity

Cosmetic cleanups.

Browse source
This commit is contained in:
Marius Vollmer 2001-03-03 17:24:51 +00:00
parent 2fd945df34
commit d9d39d76e7
1 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

28
libguile/eval.c
View file

@ -1771,6 +1771,16 @@ scm_deval_args (SCM l, SCM env, SCM proc, SCM *lloc)
/* SECTION: Some local definitions for the evaluator.
*/
/* Update the toplevel environment frame ENV so that it refers to the
current module.
*/
#define UPDATE_TOPLEVEL_ENV(env) \
do { \
SCM p = scm_current_module_lookup_closure (); \
if (p != SCM_CAR(env)) \
env = scm_top_level_env (p); \
} while (0)
#ifndef DEVAL
#define CHECK_EQVISH(A,B) (SCM_EQ_P ((A), (B)) || (SCM_NFALSEP (scm_eqv_p ((A), (B)))))
#endif /* DEVAL */
@ -1918,9 +1928,11 @@ dispatch:
goto carloop;
case SCM_BIT8(SCM_IM_BEGIN):
cdrxnoap:
/* (currently unused)
cdrxnoap: */
PREP_APPLY (SCM_UNDEFINED, SCM_EOL);
cdrxbegin:
/* (currently unused)
cdrxbegin: */
x = SCM_CDR (x);
begin:
@ -1929,20 +1941,12 @@ dispatch:
if (SCM_CONSP(env) && !SCM_CONSP(SCM_CAR(env)))
{
t.arg1 = x;
{
SCM p = scm_current_module_lookup_closure ();
if (p != SCM_CAR(env))
env = scm_top_level_env (p);
}
UPDATE_TOPLEVEL_ENV (env);
while (SCM_NNULLP (t.arg1 = SCM_CDR (t.arg1)))
{
EVALCAR (x, env);
x = t.arg1;
{
SCM p = scm_current_module_lookup_closure ();
if (p != SCM_CAR(env))
env = scm_top_level_env (p);
}
UPDATE_TOPLEVEL_ENV (env);
}
goto carloop;
}