Change printing of +0.i and -0.i to be +0.i instead of -0.i

diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm
index 56c8e4ed5e4b324f262178a6fca957843b090edd..a295c7fa6c8fb2a0f8cb59bf48ea636e8b07512b 100644 (file)
--- a/v7/src/runtime/arith.scm
+++ b/v7/src/runtime/arith.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: arith.scm,v 1.27 1993/12/28 18:20:48 cph Exp $
+$Id: arith.scm,v 1.28 1994/08/05 20:34:56 cph Exp $
 
 Copyright (c) 1989-93 Massachusetts Institute of Technology
 
@@ -1668,9 +1668,9 @@ MIT in each case. |#
                (if (real:exact1= i)
                    ""
                    (real:->string i radix)))))
-        (if (real:positive? i)
-            (string-append "+" (positive-case i))
-            (string-append "-" (positive-case (real:negate i)))))
+        (if (real:negative? i)
+            (string-append "-" (positive-case (real:negate i)))
+            (string-append "+" (positive-case i))))
        (if imaginary-unit-j? "j" "i"))
       (real:->string z radix)))