avoid unnecessary term construction.

2010-03-09 22:03:00 +00:00 · 2010-03-09 22:03:00 +00:00 · 4a6bfe1fa0
commit 4a6bfe1fa0
parent 2c53542bb1
1 changed files with 1 additions and 1 deletions
--- 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)));