From d883348df8efee98269b6d61061a55f6a3b57f5b Mon Sep 17 00:00:00 2001
From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 14 Nov 2005 20:12:35 +0000
Subject: [PATCH] (calcFunc-ldiv): New function.

---
 lisp/calc/calc-arith.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index ba95ee7f713..4d76e1eab5b 100644
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -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)))
-- 
2.39.2