Commit c757fb07 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(disassemble-internal): Graceful error if compile failed.

parent 299585ee
......@@ -104,8 +104,9 @@ redefine OBJECT if it is a symbol."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment