# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1182491287 0
# Node ID 16985a188bf79f6065e2f667e055ecf740c7c185
# Parent  1c7ac4170c9da40b9de707a4a2820616562fc54c
(math-besJ0): Replace math-read-number-simple by math-read-number.

diff -r 1c7ac4170c9d -r 16985a188bf7 lisp/calc/calc-funcs.el
--- a/lisp/calc/calc-funcs.el	Fri Jun 22 05:45:52 2007 +0000
+++ b/lisp/calc/calc-funcs.el	Fri Jun 22 05:48:07 2007 +0000
@@ -569,29 +569,29 @@
 		(y (math-sqr z))
 		(xx (math-add x 
                               (eval-when-compile
-                                (math-read-number-simple "-0.785398164"))))
+                                (math-read-number "-0.785398164"))))
 		(a1 (math-poly-eval y
                         (eval-when-compile
                           (list
-                           (math-read-number-simple "0.0000002093887211")
-                           (math-read-number-simple "-0.000002073370639")
-                           (math-read-number-simple "0.00002734510407")
-                           (math-read-number-simple "-0.001098628627")
+                           (math-read-number "0.0000002093887211")
+                           (math-read-number "-0.000002073370639")
+                           (math-read-number "0.00002734510407")
+                           (math-read-number "-0.001098628627")
                            '(float 1 0)))))
 		(a2 (math-poly-eval y
                          (eval-when-compile
                            (list
-                            (math-read-number-simple "-0.0000000934935152")
-                            (math-read-number-simple "0.0000007621095161")
-                            (math-read-number-simple "-0.000006911147651")
-                            (math-read-number-simple "0.0001430488765")
-                            (math-read-number-simple "-0.01562499995")))))
+                            (math-read-number "-0.0000000934935152")
+                            (math-read-number "0.0000007621095161")
+                            (math-read-number "-0.000006911147651")
+                            (math-read-number "0.0001430488765")
+                            (math-read-number "-0.01562499995")))))
 		(sc (math-sin-cos-raw xx)))
 	       (if yflag
 		   (setq sc (cons (math-neg (cdr sc)) (car sc))))
 	       (math-mul (math-sqrt
 			  (math-div (eval-when-compile
-                                      (math-read-number-simple "0.636619722"))
+                                      (math-read-number "0.636619722"))
  x))
 			 (math-sub (math-mul (cdr sc) a1)
 				   (math-mul (car sc) (math-mul z a2))))))