[Maxima-commits] CVS: maxima/src numeric.lisp,1.40,1.41

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

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

Modified Files:
	numeric.lisp 
Log Message:
In BIGFLOAT:TO, if the argument is alread a bigfloat (real or
complex), just return the argument.


Index: numeric.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/numeric.lisp,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- numeric.lisp	18 Feb 2010 16:04:23 -0000	1.40
+++ numeric.lisp	18 Feb 2010 16:17:19 -0000	1.41
@@ -1502,6 +1502,9 @@
 		       (let ((re (maxima::$realpart maxima-num))
 			     (im (maxima::$imagpart maxima-num)))
 			 (to re im)))))
+	       ((or (typep maxima-num 'bigfloat)
+		    (typep maxima-num 'complex-bigfloat))
+		maxima-num)
 	       (t
 		(maxima::merror "BIGFLOAT:  Unable to convert ~M to a CL or BIGFLOAT number" maxima-num))))))