Mercurial > emacs
changeset 11203:31b8e30c1afb
(byte-compile-inline-expand): Fetch actual bytecode
before inlining a lazy function.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 05 Apr 1995 03:04:02 +0000 |
| parents | 577f71dad5c3 |
| children | de3d87b4c418 |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Wed Apr 05 01:17:41 1995 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Wed Apr 05 03:04:02 1995 +0000 @@ -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)))))))