Commit 53f963cf authored by Jay Belanger's avatar Jay Belanger

Adjust previous change to behave as intended.

parent b49df742
......@@ -759,13 +759,13 @@
(math-reject-arg n "*Index out of range")))))
(defun calcFunc-subscr (mat n &optional m)
(if (eq (car-safe mat) 'var) nil)
(setq mat (calcFunc-mrow mat n))
(if m
(if (math-num-integerp n)
(calcFunc-mrow mat m)
(calcFunc-mcol mat m))
mat))
(if (eq (car-safe mat) 'var) nil
(setq mat (calcFunc-mrow mat n))
(if m
(if (math-num-integerp n)
(calcFunc-mrow mat m)
(calcFunc-mcol mat m))
mat)))
;;; Get the Nth column of a matrix.
(defun math-mat-col (mat n)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment