# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 974176801 0
# Node ID f1c913d16f4c5ee28b3938adb67fb02b7440991e
# Parent  dedb98466e0c2200855c574db5af4a8a01960640
(byte-compile-unfold-lambda): Don't
recursively optimize body because that can lead to infinite
recursion; see comment there.

diff -r dedb98466e0c -r f1c913d16f4c lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Tue Nov 14 01:45:45 2000 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Tue Nov 14 04:40:01 2000 +0000
@@ -340,7 +340,12 @@
 		(byte-compile-warn
 		 "Attempt to open-code `%s' with too many arguments" name))
 	    form)
-	(setq body (mapcar 'byte-optimize-form body))
+	
+	;; The following leads to infinite recursion when loading a
+	;; file containing `(defsubst f () (f))', and then trying to
+	;; byte-compile that file.
+	;(setq body (mapcar 'byte-optimize-form body)))
+	
 	(let ((newform 
 	       (if bindings
 		   (cons 'let (cons (nreverse bindings) body))