[oct-cvs] Oct commit: oct qd-methods.lisp

[rtoy]

Update of /project/oct/cvsroot/oct
In directory clnet:/tmp/cvs-serv2308

Modified Files:
	qd-methods.lisp 
Log Message:
Oops.  Forgot to convert qabs to abs.


--- /project/oct/cvsroot/oct/qd-methods.lisp	2007/08/31 03:11:00	1.53
+++ /project/oct/cvsroot/oct/qd-methods.lisp	2007/08/31 19:34:00	1.54
@@ -409,7 +409,7 @@
     (scale-float (make-instance 'qd-real :value (sqrt abs^2))
 		 rho)))
 
-(defmethod qabs ((z qd-complex))
+(defmethod abs ((z qd-complex))
   ;; sqrt(x^2+y^2)
   ;; If |x| > |y| then sqrt(x^2+y^2) = |x|*sqrt(1+(y/x)^2)
   (make-instance 'qd-real