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

(disassemble-internal): Allow a call to byte-code as argument.

parent d89a4a47
......@@ -86,6 +86,8 @@ redefine OBJECT if it is a symbol."
(if (eq (car-safe obj) 'macro) ;handle macros
(setq macro t
obj (cdr obj)))
(if (and (listp obj) (eq (car obj) 'byte-code))
(setq obj (list 'lambda nil obj)))
(if (and (listp obj) (not (eq (car obj) 'lambda)))
(error "not a function"))
(if (consp obj)
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