diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix X is ceiling(E).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@44 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-05-25 20:08:38 +00:00
parent a47ba033b2
commit 27e367f0a5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/arith1.c
View File

@ -1289,7 +1289,7 @@ p_ceiling(Term t E_ARGS)
if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */ if (yap_flags[LANGUAGE_MODE_FLAG] == 1) { /* iso */
RBIG_FL(ceil(dbl)); RBIG_FL(ceil(dbl));
} else { } else {
RFLOAT(floor(dbl)); RFLOAT(ceil(dbl));
} }
} }