Commit 2b29a376 authored by Karl Heuer's avatar Karl Heuer
Browse files

(byte-compile-inline-expand): Fetch actual bytecode

before inlining a lazy function.
parent 7f4d3657
......@@ -221,9 +221,11 @@
(if (symbolp fn)
(byte-compile-inline-expand (cons fn (cdr form)))
(if (byte-code-function-p fn)
(cons (list 'lambda (aref fn 0)
(list 'byte-code (aref fn 1) (aref fn 2) (aref fn 3)))
(cdr form))
(progn
(fetch-bytecode fn)
(cons (list 'lambda (aref fn 0)
(list 'byte-code (aref fn 1) (aref fn 2) (aref fn 3)))
(cdr form)))
(if (not (eq (car fn) 'lambda)) (error "%s is not a lambda" name))
(cons fn (cdr form)))))))
......
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