From daedb4920acdf6db31c375b4fdd142b002ddc77a Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 30 Mar 2009 21:20:44 -0700 Subject: eval-closure-module, here hopefully not for long * libguile/modules.h: * libguile/modules.c (scm_eval_closure_module): Define a new-yet-deprecated accessor, to ease a transition. --- libguile/modules.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'libguile/modules.c') diff --git a/libguile/modules.c b/libguile/modules.c index beee0e2a5..428cb607d 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -544,6 +544,21 @@ SCM_DEFINE (scm_standard_interface_eval_closure, } #undef FUNC_NAME +SCM_DEFINE (scm_eval_closure_module, + "eval-closure-module", 1, 0, 0, + (SCM eval_closure), + "Return the module associated with this eval closure.") +/* the idea is that eval closures are really not the way to do things, they're + superfluous given our module system. this function lets mmacros migrate away + from eval closures. */ +#define FUNC_NAME s_scm_eval_closure_module +{ + SCM_MAKE_VALIDATE_MSG (SCM_ARG1, eval_closure, EVAL_CLOSURE_P, + "eval-closure"); + return SCM_SMOB_OBJECT (eval_closure); +} +#undef FUNC_NAME + SCM scm_module_lookup_closure (SCM module) { -- cgit v1.2.3