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

[Jay Belanger]

Index: emacs/lisp/calc/calc-arith.el
diff -c emacs/lisp/calc/calc-arith.el:1.21 emacs/lisp/calc/calc-arith.el:1.22
*** emacs/lisp/calc/calc-arith.el:1.21  Mon Nov 14 20:12:35 2005
--- emacs/lisp/calc/calc-arith.el       Mon Nov 14 20:19:00 2005
***************
*** 1856,1863 ****
  
  ;;; Division from the left.
  (defun calcFunc-ldiv (a b)
!   (math-mul (math-pow a -1) b))
! 
  
  (defun calcFunc-mod (a b)
    (math-normalize (list '% a b)))
--- 1856,1864 ----
  
  ;;; Division from the left.
  (defun calcFunc-ldiv (a b)
!   (if (math-known-scalarp a)
!       (math-div b a)
!     (math-mul (math-pow a -1) b)))
  
  (defun calcFunc-mod (a b)
    (math-normalize (list '% a b)))