From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Tue, 14 Feb 2006 21:38:57 +0000 (+0000)
Subject: (math-check-known-scalarp): Make sure expression is a symbol before
X-Git-Tag: emacs-pretest-22.0.90~4131
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb90d8443cc32d5c6ec5bdff9ffa1ae392dc577b;p=emacs.git

(math-check-known-scalarp): Make sure expression is a symbol before
checking that it is bound.
---

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index a5f25e2464e..ec09ae29318 100644
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -334,6 +334,7 @@
             ((memq 'scalar (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-scalarp val))