diff options
-rw-r--r-- | libguile/modules.c | 5 | ||||
-rw-r--r-- | libguile/modules.h | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index f0bdcc51e..93e3064d7 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -91,6 +91,11 @@ scm_c_call_with_current_module (SCM module, return scm_c_with_fluid (the_module, module, func, data); } +void +scm_frame_current_module (SCM module) +{ + scm_frame_fluid (the_module, module); +} /* convert "A B C" to scheme list (A B C) diff --git a/libguile/modules.h b/libguile/modules.h index 9106557ef..96d38e186 100644 --- a/libguile/modules.h +++ b/libguile/modules.h @@ -69,6 +69,7 @@ SCM_API SCM scm_set_current_module (SCM module); SCM_API SCM scm_c_call_with_current_module (SCM module, SCM (*func)(void *), void *data); +SCM_API void scm_frame_current_module (SCM module); SCM_API SCM scm_c_lookup (const char *name); SCM_API SCM scm_c_define (const char *name, SCM val); |