[Maxima-commits] CVS: maxima/src plot.lisp,1.165,1.166

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv12379/src

Modified Files:
	plot.lisp 
Log Message:
Forgot one place in %coerce-float-fun where $float needs to be
replaced by float-fun.


Index: plot.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/plot.lisp,v
retrieving revision 1.165
retrieving revision 1.166
diff -u -d -r1.165 -r1.166
--- plot.lisp	28 Sep 2010 19:45:52 -0000	1.165
+++ plot.lisp	5 Oct 2010 13:43:15 -0000	1.166
@@ -660,7 +660,7 @@
 			#-gcl
 			 (handler-case 
 			     (catch 'errorsw
-			       ($float (maybe-realpart (meval* ',expr))))
+			       (,float-fun (maybe-realpart (meval* ',expr))))
 			   ;; Should we just catch all errors here?  It is
 			   ;; rather nice to only catch errors we care
 			   ;; about and let other errors fall through so