diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-03-02 20:14:59 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-03-02 20:14:59 +0000 |
commit | cb1cfc42a4f5ac4d60a64b425795432a0388ad7e (patch) | |
tree | 0e029cf1289bc79fae01ba4de53bdb888d88f84e /libguile | |
parent | b5623573b43a0c6023b61b56887b608701ef053c (diff) | |
download | guile-cb1cfc42a4f5ac4d60a64b425795432a0388ad7e.tar.gz |
(scm_frame_current_module): New.
Diffstat (limited to 'libguile')
-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); |