Mercurial > emacs

diff src/data.c @ 11734:e6675e3ed8b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmod): Fix the final adjustment, when f2 < 0 and f1 == 0.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 May 1995 09:02:39 +0000
parents d0eaa6b6dc72
children 606889516975
line wrap: on
line diff
--- a/src/data.c	Sun May 07 06:13:58 1995 +0000
+++ b/src/data.c	Sun May 07 09:02:39 1995 +0000
@@ -1949,7 +1949,7 @@
 
       f1 = fmod (f1, f2);
       /* If the "remainder" comes out with the wrong sign, fix it.  */
-      if ((f1 < 0) != (f2 < 0))
+      if (f2 < 0 ? f1 > 0 : f1 < 0)
 	f1 += f2;
       return (make_float (f1));
     }