From 1012f7e1296009e75824edb76bc34d8545883a1d Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 3 Jan 2013 23:02:59 +0900
Subject: [PATCH] A followup patch for bignum addition carrying from Lorenzo.

---
 bignum.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bignum.c b/bignum.c
index 3f513822..e31a44e5 100644
--- a/bignum.c
+++ b/bignum.c
@@ -341,7 +341,7 @@ sexp sexp_bignum_add_digits (sexp ctx, sexp dst, sexp a, sexp b) {
   for (i=0; i<blen; i++) {
     n = adata[i];
     cdata[i] = n + bdata[i] + carry;
-    carry = (n > (SEXP_UINT_T_MAX - bdata[i]) ? 1 : 0);
+    carry = (n > (SEXP_UINT_T_MAX - bdata[i] - carry) ? 1 : 0);
   }
   for ( ; carry && (i<alen); i++) {
     carry = (cdata[i] == SEXP_UINT_T_MAX ? 1 : 0);