diff options
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-bin.el | 6 | ||||
| -rw-r--r-- | lisp/calc/calc-poly.el | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el index 20b4a9db5e..44354f0822 100644 --- a/lisp/calc/calc-bin.el +++ b/lisp/calc/calc-bin.el @@ -291,7 +291,7 @@ the size of a Calc bignum digit.") (if (eq (car-safe b) 'mod) (if (equal mod (nth 2 b)) (setq b (nth 1 b)) - (math-reject-arg b "*Inconsistent modulos")))) + (math-reject-arg b "*Inconsistent modulus")))) (setq mod (nth 2 b) b (nth 1 b))) (if (Math-messy-integerp mod) @@ -303,9 +303,9 @@ the size of a Calc bignum digit.") (if w (if (/= w bits) (calc-record-why - "*Warning: Modulo inconsistent with word size")) + "*Warning: Modulus inconsistent with word size")) (setq w bits)) - (calc-record-why "*Warning: Modulo is not a power of 2")) + (calc-record-why "*Warning: Modulus is not a power of 2")) (math-make-mod (if b (funcall f a b w) (funcall f a w)) diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el index e16c26eaa1..97d955eb07 100644 --- a/lisp/calc/calc-poly.el +++ b/lisp/calc/calc-poly.el @@ -419,7 +419,7 @@ (list 'frac 1 denom)) 1)) -;;; Compute the GCD of two monovariate polynomial lists. +;;; Compute the GCD of two univariate polynomial lists. ;;; Knuth section 4.6.1, algorithm C. (defun math-poly-gcd-coefs (u v) (let ((d (math-poly-gcd (math-poly-gcd-list u) |