mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

(scm_eval_closure_module): Removed, we already have

Browse source 
scm_lookup_closure_module, which does the same thing.
This commit is contained in:
Marius Vollmer 2005-07-31 23:36:14 +00:00
parent 930888e8e8
commit fc95d019cc
2 changed files with 0 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/modules.c
View file

@ -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),

1
libguile/modules.h
View file

@ -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);