# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1131999540 0
# Node ID 28b28c1cd22fc5889ecfeb5646b4bf6abeb29249
# Parent  7e4742b0d788d268c59bdf52671f7b19a2b2748d
(calcFunc-ldiv): Check to see if the first argument is a scalar.

diff -r 7e4742b0d788 -r 28b28c1cd22f lisp/calc/calc-arith.el
--- 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)))