From 3bf971143f247f7a9fe61390dbf1d23b1794c5f4 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sun, 8 Jul 2007 00:01:06 +0000 Subject: [PATCH] (math-gammap1-raw): Add docstring. --- lisp/calc/calc-funcs.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/calc/calc-funcs.el b/lisp/calc/calc-funcs.el index 9af2322ba1e..78d0df34cdb 100644 --- a/lisp/calc/calc-funcs.el +++ b/lisp/calc/calc-funcs.el @@ -147,7 +147,8 @@ (or (math-numberp x) (math-reject-arg x 'numberp)) (calcFunc-fact (math-add x -1))) -(defun math-gammap1-raw (x &optional fprec nfprec) ; compute gamma(1 + x) +(defun math-gammap1-raw (x &optional fprec nfprec) + "Compute gamma(1+X) to the appropriate precision." (or fprec (setq fprec (math-float calc-internal-prec) nfprec (math-float (- calc-internal-prec)))) -- 2.39.2