diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-10 14:35:36 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-10 14:35:36 +0000 |
commit | a55c2b680920198892329bdf78c92ecc7553eb58 (patch) | |
tree | 5dab8dec3f128c90a317b4a607d5d9382dfd8c85 /libguile/hooks.c | |
parent | 7cee5b315a702049ba869150eb3d1658d38030d0 (diff) | |
download | guile-a55c2b680920198892329bdf78c92ecc7553eb58.tar.gz |
* validate.h, deprecated.h (SCM_VALIDATE_INUM, SCM_VALIDATE_INUM_COPY,
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.
Diffstat (limited to 'libguile/hooks.c')
-rw-r--r-- | libguile/hooks.c | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/libguile/hooks.c b/libguile/hooks.c index 5be45b0bc..10a3e6525 100644 --- a/libguile/hooks.c +++ b/libguile/hooks.c @@ -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)); } |