# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1139866460 0
# Node ID 34704dae6f60072c1fcec80e7b24b642680f5d96
# Parent  75362867e699534c1f37abef3de0dbf25d43f355
(math-check-known-matrixp): Make sure expression is a symbol before
checking that it is bound.

diff -r 75362867e699 -r 34704dae6f60 lisp/calc/calc-arith.el
--- a/lisp/calc/calc-arith.el	Mon Feb 13 18:47:24 2006 +0000
+++ b/lisp/calc/calc-arith.el	Mon Feb 13 21:34:20 2006 +0000
@@ -362,6 +362,7 @@
             ((memq 'matrix (nth 1 decl))
              t)
             ((and (eq (car a) 'var)
+                  (symbolp (nth 2 a))
                   (boundp (nth 2 a))
                   (setq val (symbol-value (nth 2 a))))
              (math-check-known-matrixp val))