Function: math-rwcomp-register-expr

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

Signature

(math-rwcomp-register-expr NUM)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-rewr.el.gz
(defun math-rwcomp-register-expr (num)
  (let ((entry (nth (1- (- math-num-regs num)) math-regs)))
    (if (nth 2 entry)
	(list 'neg (list 'calcFunc-register (nth 1 entry)))
      (list 'calcFunc-register (nth 1 entry)))))