avoid sideffects from MkBigInt

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1524 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/eval.c

@@ -44,15 +44,19 @@ EvalToTerm(blob_type bt, union arith_ret *res)
 {
   switch (bt) {
   case long_int_e:
-    return(MkIntegerTerm(res->Int));
+    return MkIntegerTerm(res->Int);
   case double_e:
-    return(MkFloatTerm(res->dbl));
+    return MkFloatTerm(res->dbl);
 #ifdef USE_GMP
   case big_int_e:
-    return(Yap_MkBigIntTerm(res->big));
+    {
+      Term t = Yap_MkBigIntTerm(res->big);
+      mpz_clear(res->big);
+      return t;
+    }
 #endif
   default:
-    return(TermNil);
+    return TermNil;
   }
 }