From: Panayotis Skordos <edu/mit/csail/zurich/pas>
Date: Fri, 29 Dec 1989 20:41:06 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~11607
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=df44b2186c561e770001bd6fe5e11f7df63a0c4c;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/microcode/array.c b/v7/src/microcode/array.c
index 5b807d71c..94c1fd82d 100644
--- a/v7/src/microcode/array.c
+++ b/v7/src/microcode/array.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/array.c,v 9.40 1989/12/20 18:03:32 pas Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/array.c,v 9.41 1989/12/29 20:41:06 pas Exp $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -1223,7 +1223,7 @@ complex_array_sqrt (a,b,n)
       y = (double) b[i];
       r = sqrt( x*x + y*y);
       a[i] = sqrt((r+x)/2.0);
-      if (y>0.0)
+      if (y>=0.0)
 	b[i] =  sqrt((r-x)/2.0); /* choose principal root */
       else			/* see Abramowitz (p.17 3.7.27) */
 	b[i] = -sqrt((r-x)/2.0);
@@ -1292,7 +1292,7 @@ complex_array_asin (a,b,n)
     
     r = sqrt(x*x + y*y);	/* sqrt(1-z*z)  */
     real = sqrt((r+x)/2.0);
-    if (y>0.0)
+    if (y>=0.0)
       imag =  sqrt((r-x)/2.0);	/* choose principal root */
     else			/* see Abramowitz (p.17 3.7.27) */
       imag = -sqrt((r-x)/2.0);