summaryrefslogtreecommitdiff
path: root/libguile/modules.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/modules.c')
-rw-r--r--libguile/modules.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/modules.c b/libguile/modules.c
index 9b06432d9..1551d2813 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -241,7 +241,7 @@ module_variable (SCM module, SCM sym)
}
}
-SCM scm_eval_closure_tag;
+scm_bits_t scm_tc16_eval_closure;
/* NOTE: This function may be called by a smob application
or from another C function directly. */
@@ -262,7 +262,7 @@ SCM_DEFINE (scm_standard_eval_closure, "standard-eval-closure", 1, 0, 0,
"")
#define FUNC_NAME s_scm_standard_eval_closure
{
- SCM_RETURN_NEWSMOB (scm_eval_closure_tag, SCM_UNPACK (module));
+ SCM_RETURN_NEWSMOB (scm_tc16_eval_closure, SCM_UNPACK (module));
}
#undef FUNC_NAME
@@ -274,9 +274,9 @@ scm_init_modules ()
#endif
module_make_local_var_x = scm_sysintern ("module-make-local-var!",
SCM_UNDEFINED);
- scm_eval_closure_tag = scm_make_smob_type ("eval-closure", 0);
- scm_set_smob_mark (scm_eval_closure_tag, scm_markcdr);
- scm_set_smob_apply (scm_eval_closure_tag, scm_eval_closure_lookup, 2, 0, 0);
+ scm_tc16_eval_closure = scm_make_smob_type ("eval-closure", 0);
+ scm_set_smob_mark (scm_tc16_eval_closure, scm_markcdr);
+ scm_set_smob_apply (scm_tc16_eval_closure, scm_eval_closure_lookup, 2, 0, 0);
}
void