summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
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 6c3d0e8b6..43e2373ba 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -49,7 +49,7 @@ static SCM the_module;
boot-9 are needed to provide the Scheme interface. */
static SCM the_root_module_var;
static SCM module_make_local_var_x_var;
-static SCM process_define_module_var;
+static SCM define_module_star_var;
static SCM process_use_modules_var;
static SCM resolve_module_var;
static SCM module_public_interface_var;
@@ -176,8 +176,8 @@ SCM
scm_c_define_module (const char *name,
void (*init)(void *), void *data)
{
- SCM module = scm_call_1 (SCM_VARIABLE_REF (process_define_module_var),
- scm_list_1 (convert_module_name (name)));
+ SCM module = scm_call_1 (SCM_VARIABLE_REF (define_module_star_var),
+ convert_module_name (name));
if (init)
scm_c_call_with_current_module (module, (SCM (*)(void*))init, data);
return module;
@@ -894,7 +894,7 @@ scm_post_boot_init_modules ()
scm_module_tag = (SCM_CELL_WORD_1 (module_type) + scm_tc3_struct);
resolve_module_var = scm_c_lookup ("resolve-module");
- process_define_module_var = scm_c_lookup ("process-define-module");
+ define_module_star_var = scm_c_lookup ("define-module*");
process_use_modules_var = scm_c_lookup ("process-use-modules");
module_export_x_var = scm_c_lookup ("module-export!");
the_root_module_var = scm_c_lookup ("the-root-module");