(math-check-known-scalarp): Make sure expression is a symbol before

checking that it is bound.
2006-02-14 21:38:57 +00:00
parent 1324d26ee2
commit eb90d8443c
1 changed files with 1 additions and 0 deletions
--- 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))