# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1039102252 0
# Node ID f1e846c193c7962e366857cdc40c210c8ab5875c
# Parent  1bcc16abed79d51d084e4e1cfda5e65bf525f34a
(solar-atn2): Give correct quadrant for arctan.

diff -r 1bcc16abed79 -r f1e846c193c7 lisp/calendar/solar.el
--- a/lisp/calendar/solar.el	Thu Dec 05 15:30:09 2002 +0000
+++ b/lisp/calendar/solar.el	Thu Dec 05 15:30:52 2002 +0000
@@ -262,7 +262,7 @@
    "Arctan of point X, Y."
    (if (= x 0)
        (if (> y 0) 90 270)
-     (solar-arctan (/ y x) x)))
+     (solar-arctan (/ y x) (solar-xy-to-quadrant x y))))
 
 (defun solar-arccos (x)
      "Arcos of X."