Changeset 3867

Timestamp:

09/18/03 18:24:45 (19 years ago)

Author:

piso

Message:

PHASE: handle complex numbers whose real part is zero.

File:

• trunk/j/src/org/armedbear/lisp/numbers.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/numbers.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: numbers.lisp,v 1.14 2003-09-11 16:32:32 piso Exp $
+;;; $Id: numbers.lisp,v 1.15 2003-09-18 18:24:45 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -233 +233 @@
                   0.0d0))
              (complex
-              (atan (imagpart number) (realpart number)))))
+              (if (zerop (realpart number))
+                  (* (/ pi 2) (signum (imagpart number)))
+                  (atan (imagpart number) (realpart number))))))
 
 (when (and (find-package "JVM")