(calcFunc-ldiv): Check to see if the first argument is a scalar.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8084a79326953a39626de24fd1dfa97dabdb1e17..674a8ec55684f2b77f69a3532e3614b60d143dd1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2005-11-14  Jay Belanger  <belanger@truman.edu>
+
+       * calc-alg.el (calcFunc-write-out-power): Rename it to
+       calcFunc-powerexpand.
+       (math-write-out-power): Rename it to math-powerexpand; have it
+       handle negative exponents.
+       (calc-writeoutpower): Rename it to calc-powerexpand.
+
+       * calc-ext.el: Change calcFunc-writeoutpower and
+       calc-writeoutpower to calcFunc-powerexpand and calc-powerexpand in
+       autoloads.
+       Add calcFunc-ldiv to autoloads.
+
+       * calc-arith.el (calcFunc-ldiv): New function.
+
+       * calc.el (calc-left-divide): New function.
+
 2005-11-14  Juri Linkov  <juri@jurta.org>
 
        * cus-edit.el (custom-variable-prompt): Set the default value arg

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index 4d76e1eab5be0daf03e9d5f611546b257d7dd1e6..dc341cb7aec00254bb12d2e20e3e6cf875bd174a 100644 (file)
--- 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)))