Mercurial > emacs
changeset 23177:e3e7eca80c06
(byte-compile-inline-expand):
If the function definition is not a lambda, return original FORM
with no error.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 04 Sep 1998 19:57:32 +0000 |
| parents | 3852eb64cf0e |
| children | ff46f1893f6f |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Fri Sep 04 19:53:41 1998 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Fri Sep 04 19:57:32 1998 +0000 @@ -278,8 +278,10 @@ (cons (list 'lambda (aref fn 0) (list 'byte-code string (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))))))) + (if (eq (car-safe fn) 'lambda) + (cons fn (cdr form)) + ;; Give up on inlining. + form)))))) ;;; ((lambda ...) ...) ;;;