Function: math-rwcomp-substitute

math-rwcomp-substitute is a byte-compiled function defined in calc-rewr.el.gz.

Signature

(math-rwcomp-substitute EXPR RWCOMP-SUBST-OLD RWCOMP-SUBST-NEW)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-rewr.el.gz
(defun math-rwcomp-substitute (expr rwcomp-subst-old rwcomp-subst-new)
  (let ((math-rwcomp-subst-old rwcomp-subst-old)
        (math-rwcomp-subst-new rwcomp-subst-new))
  (if (and (eq (car-safe rwcomp-subst-old) 'var)
	   (memq (car-safe rwcomp-subst-new) '(var calcFunc-lambda)))
      (let ((math-rwcomp-subst-old-func (math-var-to-calcFunc rwcomp-subst-old))
	    (math-rwcomp-subst-new-func (math-var-to-calcFunc rwcomp-subst-new)))
	(math-rwcomp-subst-rec expr))
    (let ((math-rwcomp-subst-old-func nil))
      (math-rwcomp-subst-rec expr)))))