Mercurial > emacs
comparison lisp/calc/calc-arith.el @ 68860:34704dae6f60
(math-check-known-matrixp): Make sure expression is a symbol before
checking that it is bound.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 13 Feb 2006 21:34:20 +0000 |
| parents | 6bf177f8065b |
| children | ab08676bc819 d57ee9eab157 |
comparison
equal
deleted
inserted
replaced
| 68859:75362867e699 | 68860:34704dae6f60 |
|---|---|
| 360 val) | 360 val) |
| 361 (cond | 361 (cond |
| 362 ((memq 'matrix (nth 1 decl)) | 362 ((memq 'matrix (nth 1 decl)) |
| 363 t) | 363 t) |
| 364 ((and (eq (car a) 'var) | 364 ((and (eq (car a) 'var) |
| 365 (symbolp (nth 2 a)) | |
| 365 (boundp (nth 2 a)) | 366 (boundp (nth 2 a)) |
| 366 (setq val (symbol-value (nth 2 a)))) | 367 (setq val (symbol-value (nth 2 a)))) |
| 367 (math-check-known-matrixp val)) | 368 (math-check-known-matrixp val)) |
| 368 (t | 369 (t |
| 369 nil)))))) | 370 nil)))))) |