# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1183852866 0
# Node ID 886906acf1e727a4b626f4ab0605eeeb5ef5d1a7
# Parent  f245856314bfcbb5b291e91b563305458b40bacd
(math-gammap1-raw): Add docstring.

diff -r f245856314bf -r 886906acf1e7 lisp/calc/calc-funcs.el
--- a/lisp/calc/calc-funcs.el	Sun Jul 08 00:00:30 2007 +0000
+++ b/lisp/calc/calc-funcs.el	Sun Jul 08 00:01:06 2007 +0000
@@ -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))))