Function: math-normalize-nonstandard

math-normalize-nonstandard is a byte-compiled function defined in calc-ext.el.gz.

Signature

(math-normalize-nonstandard A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-ext.el.gz
;; The variable math-normalize-a is local to math-normalize in calc.el,
;; but is used by math-normalize-nonstandard, which is called by
;; math-normalize.
(defun math-normalize-nonstandard (a)
  (if (consp calc-simplify-mode)
      (progn
	(setq calc-simplify-mode 'none
	      math-simplify-only (car-safe (cdr-safe a)))
	nil)
    (and (symbolp (car a))
	 (or (eq calc-simplify-mode 'none)
	     (and (eq calc-simplify-mode 'num)
		  (let ((aptr (setq a
                                    (cons
                                     (car a)
                                     (mapcar #'math-normalize
                                             (cdr a))))))
		    (while (and aptr (math-constp (car aptr)))
		      (setq aptr (cdr aptr)))
		    aptr)))
	 (cons (car a)
               (mapcar #'math-normalize (cdr a))))))