bug fix: printed some reals wrong

diff --git a/lang/m2/libm2/RealConver.mod b/lang/m2/libm2/RealConver.mod
index 72a95c5..2e29b97 100644 (file)
--- 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] := '-';