21.4.14 "Reasonable Discussion".

[chise/xemacs-chise.git.1] / lisp / byte-optimize.el

diff --git a/lisp/byte-optimize.el b/lisp/byte-optimize.el
index 22e62ce..8ae9d24 100644 (file)
--- a/lisp/byte-optimize.el
+++ b/lisp/byte-optimize.el
@@ -357,7 +357,9 @@
                (byte-compile-warn
                 "attempt to open-code %s with too many arguments" name))
            form)
-       (setq body (mapcar 'byte-optimize-form body))
+       ;; This line, introduced in v1.10, can cause an infinite
+       ;; recursion when inlining recursive defsubst's
+;      (setq body (mapcar 'byte-optimize-form body))
        (let ((newform
               (if bindings
                   (cons 'let (cons (nreverse bindings) body))