scm_create_hook

[Michael Livshin]

here's the entire code:

SCM
scm_create_hook (const char *name, int n_args)
{
  SCM hook = make_hook (SCM_MAKINUM (n_args), "scm_create_hook");
  scm_c_define (name, hook);
  scm_protect_object (hook);
  return hook;
}

question: what the call to `scm_protect_object' is there for?  there's
no corresponding call to `unprotect' anywhere, and I thought
`scm_c_define' should hold onto the value anyway?

-- 
Long computations which yield zero are probably all for naught.