diff options
| author | Jay Belanger | 2006-02-14 21:38:57 +0000 |
|---|---|---|
| committer | Jay Belanger | 2006-02-14 21:38:57 +0000 |
| commit | eb90d8443cc32d5c6ec5bdff9ffa1ae392dc577b (patch) | |
| tree | fa8b9d718611f55f0a29bd05f39c1b655fc6342c /lisp/calc | |
| parent | 1324d26ee232ca437e4ded795131fb769029a539 (diff) | |
| download | emacs-eb90d8443cc32d5c6ec5bdff9ffa1ae392dc577b.tar.gz emacs-eb90d8443cc32d5c6ec5bdff9ffa1ae392dc577b.zip | |
(math-check-known-scalarp): Make sure expression is a symbol before
checking that it is bound.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-arith.el | 1 |
1 files changed, 1 insertions, 0 deletions
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 @@ | |||
| 334 | ((memq 'scalar (nth 1 decl)) | 334 | ((memq 'scalar (nth 1 decl)) |
| 335 | t) | 335 | t) |
| 336 | ((and (eq (car a) 'var) | 336 | ((and (eq (car a) 'var) |
| 337 | (symbolp (nth 2 a)) | ||
| 337 | (boundp (nth 2 a)) | 338 | (boundp (nth 2 a)) |
| 338 | (setq val (symbol-value (nth 2 a)))) | 339 | (setq val (symbol-value (nth 2 a)))) |
| 339 | (math-check-known-scalarp val)) | 340 | (math-check-known-scalarp val)) |