From e856a264dd228101e26cd52a229248bc524a16f2 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 7 May 1995 09:02:39 +0000
Subject: [PATCH] (Fmod): Fix the final adjustment, when f2 < 0 and f1 == 0.

---
 src/data.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/data.c b/src/data.c
index a6ab2ed345a..9c7b4a62efb 100644
--- 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));
     }
-- 
2.39.2