diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2005-06-11 01:48:19 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2005-06-11 01:48:19 +0000 |
commit | e4da074025136047c85103d665f601cb61707a48 (patch) | |
tree | 7000a65913730b50c367a2da28e0bc165bbacd1b /libguile/modules.c | |
parent | 27667158553ff644e5f465f7d7f264c4f8ee33a4 (diff) | |
download | guile-e4da074025136047c85103d665f601cb61707a48.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index 557b33aaa..d2d1d4492 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -346,6 +346,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), |