[Maxima-commits] CVS: maxima/src intpol.lisp,1.6,1.6.4.1

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv23438/src

Modified Files:
      Tag: RELEASE-5_10_0-BRANCH
	intpol.lisp 
Log Message:
Implement interpolate as a function which just prints a message saying
"interpolate was renamed to find_root".
Hopefully this will prevent confusion. Addresses bug report [ 1535101 ] where is interpolate in Maxima 5.9.3.

Index: intpol.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/intpol.lisp,v
retrieving revision 1.6
retrieving revision 1.6.4.1
diff -u -d -r1.6 -r1.6.4.1
--- intpol.lisp	18 Jan 2006 04:35:55 -0000	1.6
+++ intpol.lisp	7 Aug 2006 05:34:06 -0000	1.6.4.1
@@ -31,6 +31,14 @@
 (or (boundp '$find_root_rel) (setq $find_root_rel 0.0))
 (or (boundp '$find_root_error) (setq $find_root_error t))
 
+(defmspec $interpolate (form)
+  (format t
+"NOTE: The interpolate function has been renamed to find_root.
+The variables intpolabs, intpolrel, and intpolerror have been renamed
+to find_root_abs, find_root_rel, and find_root_error, respectively.
+Perhaps you meant to enter `~a'.~%" (print-invert-case (implode (mstring `(($find_root) ,@ (cdr form))))))
+  '$done)
+
 (defun $find_root_subr (f left right)
   (bind-tramp1$
    f f