From: ceriel <none@none>
Date: Tue, 20 Jun 1989 11:43:01 +0000 (+0000)
Subject: bug fix: printed some reals wrong
X-Git-Tag: release-5-5~2367
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=6d78cd67100f2aceed5284471443de8b89973bdf;p=ack.git

bug fix: printed some reals wrong
---

diff --git a/lang/m2/libm2/RealConver.mod b/lang/m2/libm2/RealConver.mod
index 72a95c5ef..2e29b9765 100644
--- a/lang/m2/libm2/RealConver.mod
+++ b/lang/m2/libm2/RealConver.mod
@@ -139,7 +139,7 @@ IMPLEMENTATION MODULE RealConversions;
 			RETURN;
 		END;
 		str[ind1] := 'E'; INC(ind1);
-		IF r # 0.0D THEN DEC(pointpos); END;
+		IF arg # 0.0D THEN DEC(pointpos); END;
 		IF pointpos < 0 THEN
 			pointpos := -pointpos;
 			str[ind1] := '-';