# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1128974358 0
# Node ID 7e915ad64a71a06bce8bed86def75b940d465bda
# Parent  79a78f2e95f6f2298ba9e076d1a55f809de8c451
(math-check-known-square-matrixp): Change order in which value is checked.

diff -r 79a78f2e95f6 -r 7e915ad64a71 lisp/calc/calc-arith.el
--- a/lisp/calc/calc-arith.el	Mon Oct 10 19:56:42 2005 +0000
+++ b/lisp/calc/calc-arith.el	Mon Oct 10 19:59:18 2005 +0000
@@ -383,8 +383,6 @@
            (cond
             ((memq 'sqmatrix (nth 1 decl))
              t)
-            ((memq 'matrix (nth 1 decl))
-             nil)
             ((and (eq (car a) 'var)
                   (boundp (nth 2 a))
                   (setq val (symbol-value (nth 2 a))))
@@ -394,6 +392,8 @@
                    (eq calc-matrix-mode 'sqmatrix))
                   (eq (car-safe a) 'var))
              t)
+            ((memq 'matrix (nth 1 decl))
+             nil)
             (t
              nil))))))