diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-02-08 18:49:52 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-02-08 18:49:52 +0000 |
commit | aa767bc58fdad82fc83af75abc995a0b7c0c8ef2 (patch) | |
tree | d12c78680d7372d6cee83e404b453c6edf424eff /libguile/modules.c | |
parent | fdfe6305a5f234694b213a851617645552ed853b (diff) | |
download | guile-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.c | 8 |
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 |