summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/modules.c5
-rw-r--r--libguile/modules.h1
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);