From 5d81b090b9ef5c88c504cdc760e417b1f62229c3 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 27 Nov 1989 09:37:56 +0000
Subject: [PATCH] Corrected MathLib0.mod: entier was wrong on negative args

---
 lang/m2/libm2/MathLib0.mod | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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;
-- 
2.34.1