mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 21:30:29 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Han-Wen Nienhuys 2005-06-19 13:27:50 +00:00
parent bde70eddce
commit 05d44505b8
9 changed files with 42 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/modules.c
View file

@ -340,6 +340,19 @@ 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),