procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
before inlining a lazy function.
This commit is contained in:
Karl Heuer 1995-04-05 03:04:02 +00:00
parent 7f4d365716
commit 2b29a37688
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/byte-opt.el
View file

@ -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)))))))