Function: math-rweval

math-rweval is a macro defined in calc-rewr.el.gz.

Signature

(math-rweval FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-rewr.el.gz
;; This monstrosity is necessary because the use of static vectors of
;; registers makes rewrite rules non-reentrant.  Yucko!
(defmacro math-rweval (form)
  `(let ((orig (car rules)))
     (setcar rules '(nil nil nil no-phase))
     (unwind-protect
	 ,form
       (setcar rules orig))))