fix stasino's patch

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@551 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-06-25 16:13:56 +00:00
parent 3271b43294
commit ca59b7ad1a
5 changed files with 14 additions and 5 deletions
--- a/C/arith1.c
+++ b/C/arith1.c
@@ -1381,11 +1381,14 @@ p_round(Term t E_ARGS)
      RERROR();
    }
  }
-
+  
  if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
-    RBIG_FL(rint(dbl));
+    double vl = rint(dbl);
+    RBIG_FL(vl);
  } else {
-    RFLOAT(rint(dbl));
+    double vl = rint(dbl);
+    printf("vl is %d\n", vl);
+    RFLOAT(vl);
  }
 }