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/goops.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/goops.c')
-rw-r--r-- | libguile/goops.c | 8 |
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 |