[Maxima-commits] CVS: maxima/src gamma.lisp,1.25,1.26

[Dieter K. <cra...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv28175

Modified Files:
	gamma.lisp 
Log Message:
Correcting a typo in the routine complex-bfloat-log-gamma

We have to call complex-bfloat-log-gamma and not bfloat-log-gamma. Because of this typo the log_gamma function for complex bigfloat values with a negative realpart could not be calculated.

Index: gamma.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/gamma.lisp,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- gamma.lisp	6 Feb 2009 23:14:02 -0000	1.25
+++ gamma.lisp	7 Feb 2009 12:57:32 -0000	1.26
@@ -1555,7 +1555,7 @@
              bigfloat%pi '$%i
              (simplify (list '($floor) ($realpart z)))
              (simplify (list '(%signum) ($imagpart z)))))
-         (bfloat-log-gamma z))))
+         (complex-bfloat-log-gamma z))))
     (t
      (let* ((k (* 2 (+ 1 ($entier (* 0.41 $fpprec)))))
             (m ($bfloat bigfloatone))