summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-07-31 23:36:14 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-07-31 23:36:14 +0000
commitfc95d019cc56e32c418377061048d6b6a42101a0 (patch)
treef1c7ec1ef14b9f0032fbe5981bc9f508b785427f
parent930888e8e88a39cbdd081d060111993226a8499a (diff)
downloadguile-fc95d019cc56e32c418377061048d6b6a42101a0.tar.gz
(scm_eval_closure_module): Removed, we already have
scm_lookup_closure_module, which does the same thing.
-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);