diff options
Diffstat (limited to 'libguile/chars.c')
-rw-r--r-- | libguile/chars.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/chars.c b/libguile/chars.c index d205cf6e4..f42ba2b73 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -238,7 +238,7 @@ SCM_DEFINE (scm_char_to_integer, "char->integer", 1, 0, 0, #define FUNC_NAME s_scm_char_to_integer { SCM_VALIDATE_CHAR (1, chr); - return scm_ulong2num((unsigned long)SCM_CHAR(chr)); + return scm_from_ulong (SCM_CHAR(chr)); } #undef FUNC_NAME |