[PATCH] The angle of a negative real is pi.

[Jamison Hope <jrh@theptrgroup.com>]

[-- Attachment #1: Type: text/plain, Size: 121 bytes --]

Fixes angle to return Math.PI on negative reals (including -inf.0).

--
Jamison Hope
The PTR Group
www.theptrgroup.com



[-- Attachment #2: real_angle.patch --]
[-- Type: application/octet-stream, Size: 1936 bytes --]

Index: gnu/math/ChangeLog
===================================================================
--- gnu/math/ChangeLog	(revision 7819)
+++ gnu/math/ChangeLog	(working copy)
@@ -1,3 +1,7 @@
+2014-02-20  Jamison Hope  <jrh@theptrgroup.com>
+
+	* RealNum.java (angle): The angle of a negative real is pi.
+
 2014-02-16  Per Bothner  <per@bothner.com>
 
 	* RealNum.java (isReal): New static method.
Index: gnu/math/RealNum.java
===================================================================
--- gnu/math/RealNum.java	(revision 7819)
+++ gnu/math/RealNum.java	(working copy)
@@ -11,8 +11,11 @@
 {
   public final RealNum re() { return this; }
   public final RealNum im() { return IntNum.zero(); }
-  public final RealNum angle() { return IntNum.zero(); }
 
+  public final RealNum angle() {
+    return isNegative() ? DFloNum.make(Math.PI) :IntNum.zero();
+  }
+
     public static boolean isReal(Object value) {
         return (value instanceof Number
                 && (value instanceof RealNum || ! (value instanceof Numeric)));
Index: kawa/lib/ChangeLog
===================================================================
--- kawa/lib/ChangeLog	(revision 7819)
+++ kawa/lib/ChangeLog	(working copy)
@@ -1,3 +1,7 @@
+2014-02-20  Jamison Hope  <jrh@theptrgroup.com>
+
+	* numbers.scm (angle): The angle of a negative real is pi.
+
 2014-02-17  Per Bothner  <per@bothner.com>
 
 	* prim_syntax.scm (define-early-constant): New syntax.
Index: kawa/lib/numbers.scm
===================================================================
--- kawa/lib/numbers.scm	(revision 7819)
+++ kawa/lib/numbers.scm	(working copy)
@@ -239,7 +239,7 @@
 (define (angle (x ::java.lang.Number)):: <real>
   (if (gnu.math.Complex? x)
       ((->gnu.math.Complex x):angle)
-      0))
+      (if (< (x:doubleValue) 0) java.lang.Math:PI 0)))
 
 (define (inexact (num :: java.lang.Number)) :: java.lang.Number
   (gnu.kawa.functions.Arithmetic:toInexact num))