diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-07-08 00:01:06 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-07-08 00:01:06 +0000 |
| commit | 3bf971143f247f7a9fe61390dbf1d23b1794c5f4 (patch) | |
| tree | a6b8b030fcd5fe6110efc1efe7a92710da4cb50b /lisp | |
| parent | 98e9ffe31e85c749172a58e4dfcc6503cb39a0d1 (diff) | |
| download | emacs-3bf971143f247f7a9fe61390dbf1d23b1794c5f4.tar.gz | |
(math-gammap1-raw): Add docstring.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calc/calc-funcs.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)))) |