# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 796606499 0
# Node ID 0aede77c159324f2fad5b77aa80f53e4ac789bd4
# Parent  df80277264ec71adb2f17e94a6ceed3f1698ef89
(Fmod): Fix the final adjustment, when i2 < 0 and i1 == 0.

diff -r df80277264ec -r 0aede77c1593 src/data.c
--- a/src/data.c	Thu Mar 30 07:31:38 1995 +0000
+++ b/src/data.c	Thu Mar 30 23:34:59 1995 +0000
@@ -1951,7 +1951,7 @@
   i1 %= i2;
 
   /* If the "remainder" comes out with the wrong sign, fix it.  */
-  if ((i1 < 0) != (i2 < 0))
+  if (i2 < 0 ? i1 > 0 : i1 < 0)
     i1 += i2;
 
   XSETINT (val, i1);