diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-08-02 15:57:04 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-08-02 15:57:04 +0000 |
commit | c71b07063eb7c0ab02ac14a680f916011867dc99 (patch) | |
tree | 200a4d1e8a0662a0e6c6eb3d6705777387e7d372 /libguile/conv-integer.i.c | |
parent | 385609b992d42938e668ea5bed558e9c2b2debad (diff) | |
download | guile-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.c | 6 |
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); |