diff options
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 43 |
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 () { |