diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-11-19 18:29:42 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-11-19 18:29:42 -0800 |
| commit | e1dbe924b53c541fdf238a5a722b7177d5c8760b (patch) | |
| tree | cef637ee7849fac3160c668f88e0f761305f87d3 /lisp/calc | |
| parent | 7fb18e9ef9edb3b47cf463babe83922f9310a473 (diff) | |
| download | emacs-e1dbe924b53c541fdf238a5a722b7177d5c8760b.tar.gz emacs-e1dbe924b53c541fdf238a5a722b7177d5c8760b.tar.bz2 emacs-e1dbe924b53c541fdf238a5a722b7177d5c8760b.zip | |
Spelling fixes.
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 20b4a9db5e2..44354f0822f 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 e16c26eaa19..97d955eb07d 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) |