summaryrefslogtreecommitdiff
path: root/libguile/chars.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-01-06 22:13:25 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-01-06 22:13:25 +0000
commit90e49489b29a79fcc0b1ca1908f21b3fdfc1ccd0 (patch)
treecfd170f6a3a2f831f7fc9d72474ad314ec59f92a /libguile/chars.c
parent7c5628e2a88897f551c5f8a0a2cc317eb23eaa98 (diff)
downloadguile-90e49489b29a79fcc0b1ca1908f21b3fdfc1ccd0.tar.gz
* chars.c (scm_integer_to_char): Use Greg's nice
SCM_VALIDATE_INUM_RANGE macro for argument checking for closer adherence to R5RS.
Diffstat (limited to 'libguile/chars.c')
-rw-r--r--libguile/chars.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/chars.c b/libguile/chars.c
index 57859f4fe..0c04e1d34 100644
--- a/libguile/chars.c
+++ b/libguile/chars.c
@@ -265,8 +265,8 @@ SCM_DEFINE (scm_integer_to_char, "integer->char", 1, 0, 0,
"Return the character at position N in the Ascii sequence.")
#define FUNC_NAME s_scm_integer_to_char
{
- unsigned long ni = 0xffff & SCM_NUM2ULONG (1,n);
- return SCM_MAKICHR(ni);
+ SCM_VALIDATE_INUM_RANGE (1, n, 0, 256);
+ return SCM_MAKICHR (SCM_INUM (n));
}
#undef FUNC_NAME