diff options
-rw-r--r-- | libguile/chars.c | 4 |
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 |