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