summaryrefslogtreecommitdiff
path: root/libguile/num2integral.i.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/num2integral.i.c')
-rw-r--r--libguile/num2integral.i.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/num2integral.i.c b/libguile/num2integral.i.c
index 4581d8b65..c5523b38f 100644
--- a/libguile/num2integral.i.c
+++ b/libguile/num2integral.i.c
@@ -182,17 +182,17 @@ INTEGRAL2NUM (ITYPE n)
/* have to use #if here rather than if because of gcc warnings about
limited range */
#if SIZEOF_ITYPE < SIZEOF_SCM_T_BITS
- return SCM_MAKINUM ((scm_t_signed_bits) n);
+ return SCM_I_MAKINUM ((scm_t_signed_bits) n);
#else /* not SIZEOF_ITYPE < SIZEOF_SCM_T_BITS */
if (UNSIGNED)
{
if (SCM_POSFIXABLE (n))
- return SCM_MAKINUM ((scm_t_signed_bits) n);
+ return SCM_I_MAKINUM ((scm_t_signed_bits) n);
}
else
{
if (SCM_FIXABLE (n))
- return SCM_MAKINUM ((scm_t_signed_bits) n);
+ return SCM_I_MAKINUM ((scm_t_signed_bits) n);
}
return INTEGRAL2BIG (n);
#endif /* not SIZEOF_ITYPE < SIZEOF_SCM_T_BITS */