From 4a6bfe1fa064b5e06efd43bd6f39a965657839eb Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Tue, 9 Mar 2010 22:03:00 +0000
Subject: [PATCH] avoid unnecessary term construction.

---
 C/arith1.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/arith1.c b/C/arith1.c
index 683f6b620..645b251ae 100644
--- a/C/arith1.c
+++ b/C/arith1.c
@@ -624,7 +624,7 @@ eval1(Int fi, Term t) {
     case long_int_e:
       RFLOAT(IntegerOfTerm(t));
     case double_e:
-      RFLOAT(FloatOfTerm(t));
+      return t;
     case big_int_e:
 #ifdef USE_GMP
       RFLOAT(mpz_get_d(Yap_BigIntOfTerm(t)));