mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 12:00:21 +02:00
Code Activity

Smob-related creanup.

Browse source
This commit is contained in:
Keisuke Nishida 2000-12-08 17:32:56 +00:00
parent 38ae064c6e
commit e841c3e0c0
51 changed files with 385 additions and 259 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/hooks.c
View file

@ -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