From: Robert D. <rob...@us...> - 2007-01-30 02:44:32
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv17551/src Modified Files: intpol.lisp Log Message: src/intpol.lisp: Try harder to evaluate expression to a number, by assigning T to $%ENUMER. tests/rtest8.mac: Test the above change with examples from the mailing list 2007/01/25. Index: intpol.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/intpol.lisp,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- intpol.lisp 26 Sep 2006 04:29:49 -0000 1.7 +++ intpol.lisp 30 Jan 2007 02:44:28 -0000 1.8 @@ -94,7 +94,7 @@ (cond (translp `(($find_root_subr) ,@form)) (t - `((mprog) ((mlist) ((msetq) $numer t)) + `((mprog) ((mlist) ((msetq) $numer t) ((msetq) $%enumer t)) (($find_root_subr) ,@form))))) ((= (length form) 4) (destructuring-let (((exp var . bnds) form)) @@ -106,7 +106,7 @@ ,exp) ,@bnds)) (t - `((mprog) ((mlist) ((msetq) $numer t)) + `((mprog) ((mlist) ((msetq) $numer t) ((msetq) $%enumer t)) (($find_root_subr) ((lambda) ((mlist) ,var) ,exp) ,@bnds)))))) |