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/hooks.c | |
parent | 38ae064c6e462bafc7e188b4586fb3e6eedec876 (diff) | |
download | guile-e841c3e0c006a4c80d873f93cb512f0ec71a5705.tar.gz |
Smob-related creanup.
Diffstat (limited to 'libguile/hooks.c')
-rw-r--r-- | libguile/hooks.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/libguile/hooks.c b/libguile/hooks.c index a507f3367..57fce99a6 100644 --- a/libguile/hooks.c +++ b/libguile/hooks.c @@ -148,7 +148,7 @@ scm_c_hook_run (scm_c_hook_t *hook, void *data) * programs. */ -long scm_tc16_hook; +scm_bits_t scm_tc16_hook; static SCM @@ -172,7 +172,7 @@ make_hook (SCM n_args, const char *subr) static int -print_hook (SCM hook, SCM port, scm_print_state *pstate) +hook_print (SCM hook, SCM port, scm_print_state *pstate) { SCM ls, name; scm_puts ("#<hook ", port); @@ -352,8 +352,7 @@ scm_init_hooks () { scm_tc16_hook = scm_make_smob_type ("hook", 0); scm_set_smob_mark (scm_tc16_hook, scm_markcdr); - scm_set_smob_print (scm_tc16_hook, print_hook); - + scm_set_smob_print (scm_tc16_hook, hook_print); #ifndef SCM_MAGIC_SNARFER #include "libguile/hooks.x" #endif |