SCM_ALLOW_INTS in hashtab.c

[Keisuke Nishida]

Hello,

I wonder whether these orders of SCM_ALLOW/DEFER_INTS is correct or not:


static unsigned int
scm_ihashx (SCM obj,unsigned int n,struct scm_ihashx_closure * closure)
{
  SCM answer;
  SCM_ALLOW_INTS;
  answer = scm_apply (closure->hash,
                      scm_listify (obj, scm_ulong2num ((unsigned long)n), 
SCM_UNDEFINED),
                      SCM_EOL);
  SCM_DEFER_INTS;
  return SCM_INUM (answer);
}



static SCM
scm_sloppy_assx (SCM obj,SCM alist,struct scm_ihashx_closure * closure)
{
  SCM answer;
  SCM_ALLOW_INTS;
  answer = scm_apply (closure->assoc,
                      scm_listify (obj, alist, SCM_UNDEFINED),
                      SCM_EOL);
  SCM_DEFER_INTS;
  return answer;
}




static SCM
scm_delx_x (SCM obj,SCM alist,struct scm_ihashx_closure * closure)
{
  SCM answer;
  SCM_ALLOW_INTS;
  answer = scm_apply (closure->delete,
                      scm_listify (obj, alist, SCM_UNDEFINED),
                      SCM_EOL);
  SCM_DEFER_INTS;
  return answer;
}