summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-03-02 20:14:59 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-03-02 20:14:59 +0000
commitcb1cfc42a4f5ac4d60a64b425795432a0388ad7e (patch)
tree0e029cf1289bc79fae01ba4de53bdb888d88f84e /libguile
parentb5623573b43a0c6023b61b56887b608701ef053c (diff)
downloadguile-cb1cfc42a4f5ac4d60a64b425795432a0388ad7e.tar.gz
(scm_frame_current_module): New.
Diffstat (limited to 'libguile')
-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);