From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 4 Sep 1998 19:57:32 +0000 (+0000)
Subject: (byte-compile-inline-expand):
X-Git-Tag: emacs-20.4~1772
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=223a2a62985b8bad856872a2cb3ff827f76949fb;p=emacs.git

(byte-compile-inline-expand):
If the function definition is not a lambda, return original FORM
with no error.
---

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 @@
 	      (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 ...) ...)
 ;;;