diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-11-14 20:21:40 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-11-14 20:21:40 +0000 |
| commit | d0158f73540f5f6de1861fb653cbb87832cb7ce3 (patch) | |
| tree | 9d31e66764a81159492278ef20c34e882c7f88a2 /lisp/calc | |
| parent | 431bbd673eb03d4f96e540e99edd799fb2b99cfa (diff) | |
| download | emacs-d0158f73540f5f6de1861fb653cbb87832cb7ce3.tar.gz | |
(calcFunc-ldiv): Check to see if the first argument is a scalar.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-arith.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el index 4d76e1eab5b..dc341cb7aec 100644 --- a/lisp/calc/calc-arith.el +++ b/lisp/calc/calc-arith.el @@ -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))) |