[Emacs-diffs] Changes to emacs/lisp/calc/calc-math.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-math.el
diff -c emacs/lisp/calc/calc-math.el:1.11 emacs/lisp/calc/calc-math.el:1.12
*** emacs/lisp/calc/calc-math.el:1.11   Tue Feb 15 19:25:20 2005
--- emacs/lisp/calc/calc-math.el        Tue Feb 15 19:45:01 2005
***************
*** 1070,1076 ****
                      (math-div-float (math-mul-float (car sc) ch) d)
                      (math-div-float (math-mul-float (cdr sc) sh) d)))))
        ((eq (car x) 'polar)
!        (math-polar (math-sec-raw (math-complex x))))
        (t
         (let ((sn (math-sin-raw x)))
             (if (eq sn 0)
--- 1070,1076 ----
                      (math-div-float (math-mul-float (car sc) ch) d)
                      (math-div-float (math-mul-float (cdr sc) sh) d)))))
        ((eq (car x) 'polar)
!        (math-polar (math-csc-raw (math-complex x))))
        (t
         (let ((sn (math-sin-raw x)))
             (if (eq sn 0)