diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-08 17:32:56 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-08 17:32:56 +0000 |
commit | e841c3e0c006a4c80d873f93cb512f0ec71a5705 (patch) | |
tree | a464d2eb9ca225d04d034b40e8b029efce1ea323 /libguile/modules.c | |
parent | 38ae064c6e462bafc7e188b4586fb3e6eedec876 (diff) | |
download | guile-e841c3e0c006a4c80d873f93cb512f0ec71a5705.tar.gz |
Smob-related creanup.
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 10 |
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 |