# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1137819012 0
# Node ID 1da5034b091bd788c3f3d423013af38049b89445
# Parent  07b6f0a646da889fc368f873aa7a9eb8dbba2270
(math-add-symb-fancy): Check the length of the correct variable.

diff -r 07b6f0a646da -r 1da5034b091b lisp/calc/calc-arith.el
--- a/lisp/calc/calc-arith.el	Sat Jan 21 04:31:11 2006 +0000
+++ b/lisp/calc/calc-arith.el	Sat Jan 21 04:50:12 2006 +0000
@@ -1201,7 +1201,7 @@
 	       (and (math-known-scalarp b)
 		    (math-add (nth 1 a) b))))
       (and (eq (car-safe b) 'calcFunc-idn)
-	   (= (length a) 2)
+	   (= (length b) 2)
 	   (or (and (math-square-matrixp a)
 		    (math-add a (math-mimic-ident (nth 1 b) a)))
 	       (and (math-known-scalarp a)