From cb1cfc42a4f5ac4d60a64b425795432a0388ad7e Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Wed, 2 Mar 2005 20:14:59 +0000
Subject: [PATCH] (scm_frame_current_module): New.

---
 libguile/modules.c | 5 +++++
 libguile/modules.h | 1 +
 2 files changed, 6 insertions(+)

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);