From 5f55d6b5f917304f6df87990e16ecf78c1ebc9dd Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
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 ed400f9d..325a10b0 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;