diff options
Diffstat (limited to 'lisp/calc/calc-vec.el')
| -rw-r--r-- | lisp/calc/calc-vec.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/calc/calc-vec.el b/lisp/calc/calc-vec.el index 3b8629b797d..8d99f62a9ba 100644 --- a/lisp/calc/calc-vec.el +++ b/lisp/calc/calc-vec.el @@ -647,9 +647,7 @@ (defun calcFunc-rhead (vec) (if (and (Math-vectorp vec) (cdr vec)) - (let ((vec (copy-sequence vec))) - (setcdr (nthcdr (- (length vec) 2) vec) nil) - vec) + (butlast vec) (calc-record-why 'vectorp vec) (list 'calcFunc-rhead vec))) |