From: ceriel <none@none>
Date: Mon, 27 Nov 1989 09:37:56 +0000 (+0000)
Subject: Corrected MathLib0.mod: entier was wrong on negative args
X-Git-Tag: release-5-5~2044
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=5d81b090b9ef5c88c504cdc760e417b1f62229c3;p=ack.git

Corrected MathLib0.mod: entier was wrong on negative args
---

diff --git a/lang/m2/libm2/MathLib0.mod b/lang/m2/libm2/MathLib0.mod
index a27d29ffa..15c3161cb 100644
--- a/lang/m2/libm2/MathLib0.mod
+++ b/lang/m2/libm2/MathLib0.mod
@@ -48,7 +48,11 @@ PROCEDURE entier(x: REAL): INTEGER;
 BEGIN
 	IF x < 0.0 THEN
 		i := TRUNC(-x);
-		RETURN -i;
+		IF FLOAT(-i) = x THEN
+			RETURN -i;
+		ELSE
+			RETURN -i -1;
+		END;
 	END;
 	RETURN TRUNC(x);
 END entier;