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

* validate.h, deprecated.h (SCM_VALIDATE_INUM, SCM_VALIDATE_INUM_COPY,

Browse source 
SCM_VALIDATE_BIGINT, SCM_VALIDATE_INUM_MIN,
SCM_VALIDATE_INUM_MIN_COPY,
SCM_VALIDATE_INUM_MIN_DEF_COPY,SCM_VALIDATE_INUM_DEF,
SCM_VALIDATE_INUM_DEF_COPY, SCM_VALIDATE_INUM_RANGE,
SCM_VALIDATE_INUM_RANGE_COPY): Deprecated because they make the
fixnum/bignum distinction visible.  Changed all uses to scm_to_size_t
or similar.
This commit is contained in:
Marius Vollmer 2004-07-10 14:35:36 +00:00
parent 7cee5b315a
commit a55c2b6809
28 changed files with 221 additions and 312 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/hooks.c
View file

@ -154,18 +154,12 @@ SCM_DEFINE (scm_make_hook, "make-hook", 0, 1, 0,
"object to be used with the other hook procedures.")
#define FUNC_NAME s_scm_make_hook
{
int n;
unsigned int n;
if (SCM_UNBNDP (n_args))
{
n = 0;
}
n = 0;
else
{
SCM_VALIDATE_INUM_COPY (SCM_ARG1, n_args, n);
if (n < 0 || n > 16)
SCM_OUT_OF_RANGE (SCM_ARG1, n_args);
}
n = scm_to_unsigned_integer (n_args, 0, 16);
SCM_RETURN_NEWSMOB (scm_tc16_hook + (n << 16), SCM_UNPACK (SCM_EOL));
}