aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1998-09-04 19:57:32 +0000
committerKarl Heuer1998-09-04 19:57:32 +0000
commit223a2a62985b8bad856872a2cb3ff827f76949fb (patch)
tree000e83c908196173bf85ab103891a04930e85787
parentcd30a521aa838f6bcf08ee6ffb62986cd2bf8daa (diff)
downloademacs-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.el6
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;;;