Mercurial > emacs
changeset 14960:8fe7e5e09773
(disassemble-internal): Graceful error if compile failed.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 08 Apr 1996 15:36:48 +0000 |
| parents | f2b5d784fa88 |
| children | 2c7b32c3c6aa |
| files | lisp/emacs-lisp/disass.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/disass.el Mon Apr 08 14:05:57 1996 +0000 +++ b/lisp/emacs-lisp/disass.el Mon Apr 08 15:36:48 1996 +0000 @@ -104,8 +104,9 @@ (setq obj (cdr obj)) ;throw lambda away (setq args (car obj)) ;save arg list (setq obj (cdr obj))) - (t - (setq args (aref obj 0)))) + ((byte-code-function-p obj) + (setq args (aref obj 0))) + (t (error "Compilation failed"))) (if (zerop indent) ; not a nested function (progn (indent-to indent)