From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 5 Apr 1995 03:04:02 +0000 (+0000)
Subject: (byte-compile-inline-expand): Fetch actual bytecode
X-Git-Tag: emacs-19.34~4655
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b29a37688ebdfc4725d2fd075d3639da81ea8c8;p=emacs.git

(byte-compile-inline-expand): Fetch actual bytecode
before inlining a lazy function.
---

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 7bfa75dbaaf..1d394511c96 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -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)))))))