(Fmod): Fix the final adjustment, when f2 < 0 and f1 == 0.

diff --git a/src/data.c b/src/data.c
index a6ab2ed345a6938c30672201f8b8ffb2a2976ae5..9c7b4a62efbde8c57e0e1cc6db483fd92d1f4f98 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -1949,7 +1949,7 @@ Both X and Y must be numbers or markers.")
 
       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));
     }