Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-06 20:56:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

off by one error on last patch

Browse source
This commit is contained in:
Alex Shinn 2010-04-15 22:34:43 +09:00
parent 0299d42807
commit 340ab8404c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -1645,7 +1645,7 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
#if SEXP_USE_BIGNUMS #if SEXP_USE_BIGNUMS
if (sexp_bignump(res)) { if (sexp_bignump(res)) {
if ((sexp_bignum_hi(res) == 1) if ((sexp_bignum_hi(res) == 1)
&& sexp_bignum_data(res)[0] == SEXP_MAX_FIXNUM) && (sexp_bignum_data(res)[0] == (SEXP_MAX_FIXNUM+1)))
res = sexp_make_fixnum(-sexp_bignum_data(res)[0]); res = sexp_make_fixnum(-sexp_bignum_data(res)[0]);
else else
sexp_bignum_sign(res) = -sexp_bignum_sign(res); sexp_bignum_sign(res) = -sexp_bignum_sign(res);