diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-07-31 23:36:14 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-07-31 23:36:14 +0000 |
commit | fc95d019cc56e32c418377061048d6b6a42101a0 (patch) | |
tree | f1c7ec1ef14b9f0032fbe5981bc9f508b785427f | |
parent | 930888e8e88a39cbdd081d060111993226a8499a (diff) | |
download | guile-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.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); |