fix X is ceiling(E).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@44 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-05-25 20:08:38 +00:00 · 2001-05-25 20:08:38 +00:00 · 27e367f0a5
commit 27e367f0a5
parent a47ba033b2
1 changed files with 1 additions and 1 deletions
--- a/C/arith1.c
+++ b/C/arith1.c
@ -1289,7 +1289,7 @@ p_ceiling(Term t E_ARGS)
  if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
    RBIG_FL(ceil(dbl));
  } else {
-    RFLOAT(floor(dbl));
+    RFLOAT(ceil(dbl));
  }
 }