(Frem): Fix result sign properly.

f526b955 · Richard M. Stallman · 348d4dd6 · f526b955
Commit f526b955 authored Jun 01, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

src/data.c src/data.c +2 -1

No files found.
--- a/src/data.c
+++ b/src/data.c
@@ -1762,7 +1762,8 @@ Both must be numbers or markers.")
 #else
      f1 = drem (f1, f2);
 #endif
-      if (f1 < 0)
+      /* If the "remainder" comes out with the wrong sign, fix it.  */
+      if ((f1 < 0) != (f2 < 0))
 	f1 += f2;
      return (make_float (f1));
    }