From 55e82ef0dcb3df518524378e19357a33128f4239 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 13 May 1987 16:30:06 +0000
Subject: [PATCH] Bug fix: negative integers had the sign at the end

---
 lang/m2/libm2/Conversion.mod | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lang/m2/libm2/Conversion.mod b/lang/m2/libm2/Conversion.mod
index ed400f9d0..325a10b0d 100644
--- a/lang/m2/libm2/Conversion.mod
+++ b/lang/m2/libm2/Conversion.mod
@@ -8,10 +8,6 @@ IMPLEMENTATION MODULE Conversions;
 	tmp: ARRAY [0..20] OF CHAR;
     BEGIN
 	i := 0;
-	IF neg THEN
-		tmp[0] := '-';
-		i := 1;
-	END;
 	REPEAT
 		r := num MOD base;
 		num := num DIV base;
@@ -22,6 +18,10 @@ IMPLEMENTATION MODULE Conversions;
 		END;
 		INC(i);
 	UNTIL num = 0;
+	IF neg THEN
+		tmp[i] := '-';
+		INC(i)
+	END;
 	IF len > HIGH(str) + 1 THEN len := HIGH(str) + 1; END;
 	IF i > HIGH(str) + 1 THEN i := HIGH(str) + 1; END;
 	r := 0;
-- 
2.34.1