summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/modules.c12
-rw-r--r--libguile/modules.h1
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);