diff options
Diffstat (limited to 'lisp/calc/calc-vec.el')
| -rw-r--r-- | lisp/calc/calc-vec.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/calc/calc-vec.el b/lisp/calc/calc-vec.el index 35ca41832dd..cd157703f49 100644 --- a/lisp/calc/calc-vec.el +++ b/lisp/calc/calc-vec.el @@ -1,6 +1,6 @@ ;;; calc-vec.el --- vector functions for Calc -;; Copyright (C) 1990-1993, 2001-2013 Free Software Foundation, Inc. +;; Copyright (C) 1990-1993, 2001-2015 Free Software Foundation, Inc. ;; Author: David Gillespie <daveg@synaptics.com> ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com> @@ -1107,7 +1107,7 @@ (cons 'vec (nreverse (sort (copy-sequence (cdr vec)) 'math-beforep))) (math-reject-arg vec 'vectorp))) -;; The variable math-grade-vec is local to calcFunc-grade and +;; The variable math-grade-vec is local to calcFunc-grade and ;; calcFunc-rgrade, but is used by math-grade-beforep, which is called ;; by calcFunc-grade and calcFunc-rgrade. (defvar math-grade-vec) @@ -1149,7 +1149,7 @@ (setq bin (math-floor bin))) (and (natnump bin) (< bin n) - (aset res bin + (aset res bin (math-add (aref res bin) (if wvec (car (setq wp (cdr wp))) wts))))) (cons 'vec (append res nil)))) @@ -1167,7 +1167,7 @@ (while (and tbds (Math-lessp (car tbds) num)) (setq i (1+ i)) (setq tbds (cdr tbds))) - (aset res i + (aset res i (math-add (aref res i) (if wvec (car (setq wp (cdr wp))) wts)))) (setq vp (cdr vp))) @@ -1550,7 +1550,7 @@ of two matrices is a matrix." ;; indirectly) by math-read-brackets. (defvar math-rb-close) -;; The next few variables are local to math-read-exprs in calc-aent.el +;; The next few variables are local to math-read-exprs in calc-aent.el ;; and math-read-expr in calc-ext.el, but are set in functions they call. (defvar math-exp-pos) (defvar math-exp-str) |