diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index c5564158984..bedece43285 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1762,7 +1762,8 @@ Both must be numbers or markers.") | |||
| 1762 | #else | 1762 | #else |
| 1763 | f1 = drem (f1, f2); | 1763 | f1 = drem (f1, f2); |
| 1764 | #endif | 1764 | #endif |
| 1765 | if (f1 < 0) | 1765 | /* If the "remainder" comes out with the wrong sign, fix it. */ |
| 1766 | if ((f1 < 0) != (f2 < 0)) | ||
| 1766 | f1 += f2; | 1767 | f1 += f2; |
| 1767 | return (make_float (f1)); | 1768 | return (make_float (f1)); |
| 1768 | } | 1769 | } |