From fc95d019cc56e32c418377061048d6b6a42101a0 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sun, 31 Jul 2005 23:36:14 +0000 Subject: [PATCH] (scm_eval_closure_module): Removed, we already have scm_lookup_closure_module, which does the same thing. --- libguile/modules.c | 12 ------------ libguile/modules.h | 1 - 2 files changed, 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);