diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-12-05 15:30:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-12-05 15:30:52 +0000 |
| commit | bd0f7fd3df899c562a8ec0495932ba1b01c65999 (patch) | |
| tree | 1fbcb1f966d6c3154cab5493e0e2666213a25a51 /lisp/calendar/solar.el | |
| parent | d262de61ffa7d961ab5431ddbc06047a97bad810 (diff) | |
| download | emacs-bd0f7fd3df899c562a8ec0495932ba1b01c65999.tar.gz | |
(solar-atn2): Give correct quadrant for arctan.
Diffstat (limited to 'lisp/calendar/solar.el')
| -rw-r--r-- | lisp/calendar/solar.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el index 889129858d9..10c385ac4a2 100644 --- a/lisp/calendar/solar.el +++ b/lisp/calendar/solar.el @@ -262,7 +262,7 @@ Returns nil if nothing was entered." "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." |