From: Chris Hanson Date: Fri, 5 Aug 1994 20:34:56 +0000 (+0000) Subject: Change printing of +0.i and -0.i to be +0.i instead of -0.i X-Git-Tag: 20090517-FFI~7141 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=30c7e75d5b59f90ef90c4eccaf39506d4038a69d;p=mit-scheme.git 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 56c8e4ed5..a295c7fa6 100644 --- 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)))