(scm_frame_current_module): New.

diff --git a/libguile/modules.c b/libguile/modules.c
index f0bdcc5..93e3064 100644 (file)
--- 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 9106557..96d38e1 100644 (file)
--- 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);