diff options
| author | Karl Heuer | 1998-09-04 19:57:32 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-09-04 19:57:32 +0000 |
| commit | 223a2a62985b8bad856872a2cb3ff827f76949fb (patch) | |
| tree | 000e83c908196173bf85ab103891a04930e85787 | |
| parent | cd30a521aa838f6bcf08ee6ffb62986cd2bf8daa (diff) | |
| download | emacs-223a2a62985b8bad856872a2cb3ff827f76949fb.tar.gz emacs-223a2a62985b8bad856872a2cb3ff827f76949fb.zip | |
(byte-compile-inline-expand):
If the function definition is not a lambda, return original FORM
with no error.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 4cf9548e8fb..a279c018e70 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -278,8 +278,10 @@ | |||
| 278 | (cons (list 'lambda (aref fn 0) | 278 | (cons (list 'lambda (aref fn 0) |
| 279 | (list 'byte-code string (aref fn 2) (aref fn 3))) | 279 | (list 'byte-code string (aref fn 2) (aref fn 3))) |
| 280 | (cdr form))) | 280 | (cdr form))) |
| 281 | (if (not (eq (car fn) 'lambda)) (error "%s is not a lambda" name)) | 281 | (if (eq (car-safe fn) 'lambda) |
| 282 | (cons fn (cdr form))))))) | 282 | (cons fn (cdr form)) |
| 283 | ;; Give up on inlining. | ||
| 284 | form)))))) | ||
| 283 | 285 | ||
| 284 | ;;; ((lambda ...) ...) | 286 | ;;; ((lambda ...) ...) |
| 285 | ;;; | 287 | ;;; |