summaryrefslogtreecommitdiff
path: root/libguile/conv-integer.i.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-08-02 15:57:04 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-08-02 15:57:04 +0000
commitc71b07063eb7c0ab02ac14a680f916011867dc99 (patch)
tree200a4d1e8a0662a0e6c6eb3d6705777387e7d372 /libguile/conv-integer.i.c
parent385609b992d42938e668ea5bed558e9c2b2debad (diff)
downloadguile-c71b07063eb7c0ab02ac14a680f916011867dc99.tar.gz
* discouraged.h, discouraged.c: New files.
* deprecated.h (SCM_FALSEP, SCM_NFALSEP, SCM_BOOLP, SCM_EQ_P, SCM_NEGATE_BOOL, SCM_BOOL, SCM_BOOT_NOT): Promoted from being deprecated to being discouraged by moving to discouraged.h. * numbers.h, numbers.c, discouraged.h, discouraged.c (scm_short2num, scm_ushort2num, scm_int2num, scm_uint2num, scm_long2num, scm_ulong2num, scm_size2num, scm_ptrdiff2num, scm_num2short, scm_num2ushort, scm_num2int, scm_num2uint, scm_num2long, scm_num2ulong, scm_num2size, scm_num2ptrdiff, scm_long_long2num, scm_ulong_long2num, scm_num2long_long, scm_num2ulong_long): Discouraged by moving to discouraged.h and discouraged.c and reimplementing in terms of scm_from_* and scm_to_*. * numbers.h, numbers.c: Removed GUILE_DEBUG code. (scm_i_short2big, scm_i_ushort2big, scm_i_int2big, scm_i_uint2big, scm_i_size2big, scm_i_ptrdiff2big): Removed. (scm_i_long2big, scm_i_ulong2big): New, explicit definitions. * conv-integer.i.c, conv-uinteger.i.c: Use them instead of explicit code.
Diffstat (limited to 'libguile/conv-integer.i.c')
-rw-r--r--libguile/conv-integer.i.c6
1 files changed, 1 insertions, 5 deletions
diff --git a/libguile/conv-integer.i.c b/libguile/conv-integer.i.c
index 16ec2348b..82b81012d 100644
--- a/libguile/conv-integer.i.c
+++ b/libguile/conv-integer.i.c
@@ -112,11 +112,7 @@ SCM_FROM_TYPE_PROTO (TYPE val)
if (SCM_FIXABLE (val))
return SCM_I_MAKINUM (val);
else if (val >= LONG_MIN && val <= LONG_MAX)
- {
- SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
- mpz_init_set_si (SCM_I_BIG_MPZ (z), val);
- return z;
- }
+ return scm_i_long2big (val);
else
{
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);