From 30c7e75d5b59f90ef90c4eccaf39506d4038a69d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 5 Aug 1994 20:34:56 +0000 Subject: [PATCH] Change printing of +0.i and -0.i to be +0.i instead of -0.i --- v7/src/runtime/arith.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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))) -- 2.25.1