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 @@ | |||
| 647 | (defun calcFunc-rhead (vec) | 647 | (defun calcFunc-rhead (vec) |
| 648 | (if (and (Math-vectorp vec) | 648 | (if (and (Math-vectorp vec) |
| 649 | (cdr vec)) | 649 | (cdr vec)) |
| 650 | (let ((vec (copy-sequence vec))) | 650 | (butlast vec) |
| 651 | (setcdr (nthcdr (- (length vec) 2) vec) nil) | ||
| 652 | vec) | ||
| 653 | (calc-record-why 'vectorp vec) | 651 | (calc-record-why 'vectorp vec) |
| 654 | (list 'calcFunc-rhead vec))) | 652 | (list 'calcFunc-rhead vec))) |
| 655 | 653 | ||