aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2015-05-17 23:02:10 -0700
committerGlenn Morris2015-05-17 23:02:10 -0700
commit8ae43eec7d49f468411bd1aea285be1d3ed0aa4a (patch)
tree2f06d2223bdc0a986a9ff600acab117712448feb
parente260a059d0dd4e3dccbe8e8307e6f22cb1934579 (diff)
downloademacs-8ae43eec7d49f468411bd1aea285be1d3ed0aa4a.tar.gz
emacs-8ae43eec7d49f468411bd1aea285be1d3ed0aa4a.zip
* lisp/calendar/solar.el (solar-ecliptic-coordinates): Use float-pi.
-rw-r--r--lisp/calendar/solar.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index 25a24eeffeb..a2f9d58585a 100644
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -346,7 +346,7 @@ If SUNRISE-FLAG is non-nil, only calculate longitude and inclination."
346 (solar-cosine-degrees (* 2 l))) 346 (solar-cosine-degrees (* 2 l)))
347 (* -0.5 y y (solar-sin-degrees (* 4 l))) 347 (* -0.5 y y (solar-sin-degrees (* 4 l)))
348 (* -1.25 ecc ecc (solar-sin-degrees (* 2 m))))) 348 (* -1.25 ecc ecc (solar-sin-degrees (* 2 m)))))
349 3.1415926535)))) 349 float-pi))))
350 (list app i time-eq nut))) 350 (list app i time-eq nut)))
351 351
352(defun solar-ephemeris-correction (year) 352(defun solar-ephemeris-correction (year)