diff options
| -rw-r--r-- | lisp/calc/calc-arith.el | 4 |
1 files changed, 4 insertions, 0 deletions
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))) |