Function: math-solve-sign

math-solve-sign is a byte-compiled function defined in calcalg2.el.gz.

Signature

(math-solve-sign SIGN EXPR)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calcalg2.el.gz
(defun math-solve-sign (sign expr)
  (and sign
       (let ((s1 (math-possible-signs expr)))
	 (cond ((memq s1 '(4 6))
		sign)
	       ((memq s1 '(1 3))
		(- sign))))))