# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1131999155 0
# Node ID 5827a5ed37b91e3f9ed7821aac314f92c7b496c4
# Parent  71657ea2ba013b18b90141d1990f4d4c9221631c
(calcFunc-ldiv): New function.

diff -r 71657ea2ba01 -r 5827a5ed37b9 lisp/calc/calc-arith.el
--- a/lisp/calc/calc-arith.el	Mon Nov 14 18:28:49 2005 +0000
+++ b/lisp/calc/calc-arith.el	Mon Nov 14 20:12:35 2005 +0000
@@ -1854,6 +1854,10 @@
 	       (math-mul-zero b a))))
       (list '/ a b)))
 
+;;; Division from the left.
+(defun calcFunc-ldiv (a b)
+  (math-mul (math-pow a -1) b))
+
 
 (defun calcFunc-mod (a b)
   (math-normalize (list '% a b)))