summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2005-06-11 01:48:19 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2005-06-11 01:48:19 +0000
commite4da074025136047c85103d665f601cb61707a48 (patch)
tree7000a65913730b50c367a2da28e0bc165bbacd1b /libguile/modules.c
parent27667158553ff644e5f465f7d7f264c4f8ee33a4 (diff)
downloadguile-e4da074025136047c85103d665f601cb61707a48.tar.gz
*** empty log message ***
Diffstat (limited to 'libguile/modules.c')
-rw-r--r--libguile/modules.c13
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),