diff options
-rw-r--r-- | libguile/modules.c | 12 | ||||
-rw-r--r-- | libguile/modules.h | 1 |
2 files changed, 0 insertions, 13 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index d2d1d4492..05b4dcff6 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -347,18 +347,6 @@ SCM_DEFINE (scm_standard_eval_closure, "standard-eval-closure", 1, 0, 0, #undef FUNC_NAME -SCM_DEFINE (scm_eval_closure_module, "eval-closure-module", 1, 0, 0, - (SCM closure), - "Return the module for @var{closure}.") -#define FUNC_NAME s_scm_eval_closure_module -{ - SCM_ASSERT_TYPE(SCM_EVAL_CLOSURE_P (closure), closure, SCM_ARG1, FUNC_NAME, "eval-closure"); - return SCM_PACK (SCM_CELL_WORD_1(closure)); -} -#undef FUNC_NAME - - - SCM_DEFINE (scm_standard_interface_eval_closure, "standard-interface-eval-closure", 1, 0, 0, (SCM module), diff --git a/libguile/modules.h b/libguile/modules.h index 7b3d114f4..abfe69765 100644 --- a/libguile/modules.h +++ b/libguile/modules.h @@ -98,7 +98,6 @@ SCM_API SCM scm_current_module_lookup_closure (void); SCM_API SCM scm_current_module_transformer (void); SCM_API SCM scm_eval_closure_lookup (SCM eclo, SCM sym, SCM definep); SCM_API SCM scm_standard_eval_closure (SCM module); -SCM_API SCM scm_eval_closure_module (SCM closure); SCM_API SCM scm_standard_interface_eval_closure (SCM module); SCM_API SCM scm_get_pre_modules_obarray (void); SCM_API SCM scm_lookup_closure_module (SCM proc); |