comparison lisp/calc/calc-arith.el @ 66866:28b28c1cd22f

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

66865:7e4742b0d788

	       (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)))

(defun math-mod-fancy (a b)

66866:28b28c1cd22f

	       (math-mul-zero b a))))
      (list '/ a b)))

;;; Division from the left.
(defun calcFunc-ldiv (a 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)))

(defun math-mod-fancy (a b)