summaryrefslogtreecommitdiff
path: root/libguile/goops.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/goops.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/goops.c')
-rw-r--r--libguile/goops.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/goops.c b/libguile/goops.c
index 9794aca6f..c43d0a196 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -2323,9 +2323,9 @@ make_class_from_template (char *template, char *type_name, SCM supers)
* This kludge is needed until DEFVAR ceases to use `define-public'
* or `define-public' ceases to use `current-module'.
*/
- SCM old_module = scm_select_module (scm_module_goops);
+ SCM old_module = scm_set_current_module (scm_module_goops);
DEFVAR (name, class);
- scm_select_module (old_module);
+ scm_set_current_module (old_module);
}
return class;
}
@@ -2632,7 +2632,7 @@ scm_init_goops (void)
{
SCM old_module;
scm_module_goops = scm_make_module (scm_read_0str ("(oop goops)"));
- old_module = scm_select_module (scm_module_goops);
+ old_module = scm_set_current_module (scm_module_goops);
scm_goops_lookup_closure = scm_module_lookup_closure (scm_module_goops);
@@ -2667,7 +2667,7 @@ scm_init_goops (void)
DEFVAR (name, scm_no_applicable_method);
}
- scm_select_module (old_module);
+ scm_set_current_module (old_module);
}
void