Mercurial > emacs
changeset 66866:28b28c1cd22f
(calcFunc-ldiv): Check to see if the first argument is a scalar.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 14 Nov 2005 20:19:00 +0000 |
| parents | 7e4742b0d788 |
| children | 87c432b77d3e |
| files | lisp/calc/calc-arith.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-arith.el Mon Nov 14 20:13:46 2005 +0000 +++ b/lisp/calc/calc-arith.el Mon Nov 14 20:19:00 2005 +0000 @@ -1856,8 +1856,9 @@ ;;; Division from the left. (defun calcFunc-ldiv (a b) - (math-mul (math-pow a -1) 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)))