[Maxima-commits] CVS: maxima/src plot.lisp,1.91,1.92

[Andrej V. <an...@us...>]

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

Modified Files:
	plot.lisp 
Log Message:
Use maybe-realpart instead of $realpart in coerce-float-fun.


Index: plot.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/plot.lisp,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -d -r1.91 -r1.92
--- plot.lisp	27 Mar 2007 04:53:44 -0000	1.91
+++ plot.lisp	27 Mar 2007 11:54:14 -0000	1.92
@@ -628,7 +628,7 @@
                     #-gcl
                      (handler-case 
                          (catch 'errorsw
-                           ($float ($realpart (meval* ',expr))))
+                           ($float (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
@@ -639,7 +639,7 @@
                      #+gcl
                      (handler-case 
                          (catch 'errorsw
-                           ($float ($realpart (meval* ',expr))))
+                           ($float (maybe-realpart (meval* ',expr))))
                        (cl::error () t))
                      ))