summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/modules.c')
-rw-r--r--libguile/modules.c43
1 files changed, 0 insertions, 43 deletions
diff --git a/libguile/modules.c b/libguile/modules.c
index db2ce73f8..f0576e924 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -229,28 +229,6 @@ scm_c_export (const char *name, ...)
/* Environments */
-SCM
-scm_top_level_env (SCM thunk)
-{
- if (SCM_IMP (thunk))
- return SCM_EOL;
- else
- return scm_cons (thunk, SCM_EOL);
-}
-
-SCM
-scm_env_top_level (SCM env)
-{
- while (scm_is_pair (env))
- {
- SCM car_env = SCM_CAR (env);
- if (!scm_is_pair (car_env) && scm_is_true (scm_procedure_p (car_env)))
- return car_env;
- env = SCM_CDR (env);
- }
- return SCM_BOOL_F;
-}
-
SCM_SYMBOL (sym_module, "module");
SCM
@@ -275,15 +253,6 @@ scm_lookup_closure_module (SCM proc)
}
}
-SCM_DEFINE (scm_env_module, "env-module", 1, 0, 0,
- (SCM env),
- "Return the module of @var{ENV}, a lexical environment.")
-#define FUNC_NAME s_scm_env_module
-{
- return scm_lookup_closure_module (scm_env_top_level (env));
-}
-#undef FUNC_NAME
-
/*
* C level implementation of the standard eval closure
*
@@ -878,18 +847,6 @@ SCM_DEFINE (scm_get_pre_modules_obarray, "%get-pre-modules-obarray", 0, 0, 0,
SCM_SYMBOL (scm_sym_system_module, "system-module");
-SCM
-scm_system_module_env_p (SCM env)
-{
- SCM proc = scm_env_top_level (env);
- if (scm_is_false (proc))
- return SCM_BOOL_T;
- return ((scm_is_true (scm_procedure_property (proc,
- scm_sym_system_module)))
- ? SCM_BOOL_T
- : SCM_BOOL_F);
-}
-
void
scm_modules_prehistory ()
{