diff options
Diffstat (limited to 'lisp/calc/calc-funcs.el')
| -rw-r--r-- | lisp/calc/calc-funcs.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/calc/calc-funcs.el b/lisp/calc/calc-funcs.el index a9d153961d8..17e79354835 100644 --- a/lisp/calc/calc-funcs.el +++ b/lisp/calc/calc-funcs.el @@ -27,6 +27,7 @@ (require 'calc-ext) (require 'calc-macs) +(require 'cl-lib) (defun calc-inc-gamma (arg) (interactive "P") @@ -177,7 +178,7 @@ '(float 0 0) 2))))))) -(defun math-gamma-series (sum x xinvsqr oterm n) +(defun math-gamma-series (sum x xinvsqr _oterm n) (math-working "gamma" sum) (let* ((bn (math-bernoulli-number n)) (term (math-mul (math-div-float (math-float (nth 1 bn)) @@ -525,7 +526,7 @@ bj)) (t (if (Math-lessp 100 v) (math-reject-arg v 'range)) - (let* ((j (logior (+ v (math-isqrt-small (* 40 v))) 1)) + (let* ((j (logior (+ v (cl-isqrt (* 40 v))) 1)) (two-over-x (math-div 2 x)) (jsum nil) (bjp '(float 0 0)) |