From d0158f73540f5f6de1861fb653cbb87832cb7ce3 Mon Sep 17 00:00:00 2001
From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 14 Nov 2005 20:21:40 +0000
Subject: (calcFunc-ldiv): Check to see if the first argument is a scalar.

---
 lisp/calc/calc-arith.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lisp/calc')

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)))
-- 
cgit v1.2.1