diff options
Diffstat (limited to 'lisp/calc/calc-comb.el')
| -rw-r--r-- | lisp/calc/calc-comb.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el index 02779039610..5bede650dd3 100644 --- a/lisp/calc/calc-comb.el +++ b/lisp/calc/calc-comb.el @@ -211,8 +211,8 @@ (calc-invert-func) (calc-next-prime iters)) -(defun calc-prime-factors (iters) - (interactive "p") +(defun calc-prime-factors (&optional _iters) + (interactive) (calc-slow-wrapper (let ((res (calcFunc-prfac (calc-top-n 1)))) (if (not math-prime-factors-finished) @@ -806,7 +806,6 @@ ((Math-integer-negp n) '(nil)) ((Math-natnum-lessp n 8000000) - (setq n (math-fixnum n)) (let ((i -1) v) (while (and (> (% n (setq v (aref math-primes-table (setq i (1+ i))))) |