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 /libguile/modules.c | |
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.
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 12 |
1 files changed, 0 insertions, 12 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), |