[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-alg.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-alg.el |
Date: |
Thu, 25 Nov 2004 00:57:41 -0500 |
Index: emacs/lisp/calc/calc-alg.el
diff -c emacs/lisp/calc/calc-alg.el:1.10 emacs/lisp/calc/calc-alg.el:1.11
*** emacs/lisp/calc/calc-alg.el:1.10 Thu Nov 18 16:30:27 2004
--- emacs/lisp/calc/calc-alg.el Thu Nov 25 05:51:40 2004
***************
*** 1587,1600 ****
(defvar math-poly-base-const-ok)
(defvar math-poly-base-pred)
! (defun math-polynomial-base (mpb-top-expr &optional math-poly-base-pred)
(or math-poly-base-pred
(setq math-poly-base-pred (function (lambda (base) (math-polynomial-p
! mpb-top-expr base)))))
(or (let ((math-poly-base-const-ok nil))
! (math-polynomial-base-rec mpb-top-expr))
(let ((math-poly-base-const-ok t))
! (math-polynomial-base-rec mpb-top-expr))))
(defun math-polynomial-base-rec (mpb-expr)
(and (not (Math-objvecp mpb-expr))
--- 1587,1604 ----
(defvar math-poly-base-const-ok)
(defvar math-poly-base-pred)
! ;; The variable math-poly-base-top-expr is local to math-polynomial-base,
! ;; but is used by math-polynomial-p1 in calc-poly.el, which is called
! ;; by math-polynomial-base.
!
! (defun math-polynomial-base (math-poly-base-top-expr &optional
math-poly-base-pred)
(or math-poly-base-pred
(setq math-poly-base-pred (function (lambda (base) (math-polynomial-p
! math-poly-base-top-expr base)))))
(or (let ((math-poly-base-const-ok nil))
! (math-polynomial-base-rec math-poly-base-top-expr))
(let ((math-poly-base-const-ok t))
! (math-polynomial-base-rec math-poly-base-top-expr))))
(defun math-polynomial-base-rec (mpb-expr)
(and (not (Math-objvecp mpb-expr))