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

* debug.c, eval.c, evalext.c, stacks.c: #include "modules.h".

Browse source 
* modules.c, modules.h, eval.c, eval.h (scm_env_top_level,
scm_top_level_env, scm_system_module_env_p): Moved to modules.c.
* eval.c, eval.h (scm_top_level_lookup_closure): Removed.
This commit is contained in:
Mikael Djurfeldt 1999-03-19 02:27:12 +00:00
parent deea77ebd9
commit 185905af69
1 changed files with 1 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

47
libguile/eval.c
View file

@ -91,6 +91,7 @@ char *alloca ();
#include "stackchk.h" #include "stackchk.h"
#include "objects.h" #include "objects.h"
#include "feature.h" #include "feature.h"
#include "modules.h"
#include "eval.h" #include "eval.h"
@ -854,19 +855,6 @@ scm_m_delay (xorig, env)
} }
SCM
scm_env_top_level (env)
SCM env;
{
while (SCM_NIMP(env))
{
if (SCM_BOOL_T == scm_procedure_p (SCM_CAR(env)))
return SCM_CAR(env);
env = SCM_CDR (env);
}
return SCM_BOOL_F;
}
SCM_SYNTAX(s_define, "define", scm_makmmacro, scm_m_define); SCM_SYNTAX(s_define, "define", scm_makmmacro, scm_m_define);
SCM_SYMBOL(scm_i_define, s_define); SCM_SYMBOL(scm_i_define, s_define);
@ -3362,39 +3350,6 @@ scm_eval_3 (obj, copyp, env)
return SCM_XEVAL (obj, env); return SCM_XEVAL (obj, env);
} }
SCM
scm_top_level_env (thunk)
SCM thunk;
{
if (SCM_IMP (thunk))
return SCM_EOL;
else
return scm_cons (thunk, SCM_EOL);
}
SCM
scm_top_level_lookup_closure (SCM env)
{
if (SCM_IMP (env))
return SCM_BOOL_F;
else
return SCM_CAR (scm_last_pair (env));
}
SCM_SYMBOL (scm_sym_system_module, "system-module");
SCM
scm_system_module_env_p (SCM env)
{
SCM proc = scm_top_level_lookup_closure (env);
return ((SCM_NFALSEP (proc)
&& SCM_NFALSEP (scm_procedure_property (proc,
scm_sym_system_module)))
? SCM_BOOL_T
: SCM_BOOL_F);
}
SCM_PROC(s_eval2, "eval2", 2, 0, 0, scm_eval2); SCM_PROC(s_eval2, "eval2", 2, 0, 0, scm_eval2);
SCM SCM