summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-02-08 18:49:52 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-02-08 18:49:52 +0000
commitaa767bc58fdad82fc83af75abc995a0b7c0c8ef2 (patch)
treed12c78680d7372d6cee83e404b453c6edf424eff /libguile/modules.c
parentfdfe6305a5f234694b213a851617645552ed853b (diff)
downloadguile-aa767bc58fdad82fc83af75abc995a0b7c0c8ef2.tar.gz
* modules.h (scm_selected_module, scm_current_module): Renamed
scm_selected_module to scm_current_module to synchronize Scheme and C names. (scm_select_module, scm_set_current_module): Likewise. Changed all uses.
Diffstat (limited to 'libguile/modules.c')
-rw-r--r--libguile/modules.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/modules.c b/libguile/modules.c
index 1551d2813..45c9c83bf 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -73,7 +73,7 @@ scm_the_root_module ()
static SCM the_module;
SCM
-scm_selected_module ()
+scm_current_module ()
{
return scm_fluid_ref (SCM_CDR (the_module));
}
@@ -86,9 +86,9 @@ static SCM set_current_module;
*/
SCM
-scm_select_module (SCM module)
+scm_set_current_module (SCM module)
{
- SCM old = scm_selected_module ();
+ SCM old = scm_current_module ();
scm_apply (SCM_CDR (set_current_module), SCM_LIST1 (module), SCM_EOL);
return old;
}
@@ -102,7 +102,7 @@ SCM_DEFINE (scm_interaction_environment, "interaction-environment", 0, 0, 0,
"dynamically typed by the user.")
#define FUNC_NAME s_scm_interaction_environment
{
- return scm_selected_module ();
+ return scm_current_module ();
}
#undef FUNC_NAME