From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 2 Nov 2019 16:32:20 +0000 (+0100)
Subject: limplify top level at last
X-Git-Tag: emacs-28.0.90~2727^2~1044
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb309c14f0f5075cd649c083abf2a0713b949030;p=emacs.git

limplify top level at last
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 89744f6e0d2..e76e68c31bd 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1123,9 +1123,8 @@ This will be called at load-time."
 (defun comp-limplify (lap-funcs)
   "Compute the LIMPLE ir for LAP-FUNCS.
 Top level forms for the current context are rendered too."
-  (mapc #'comp-add-func-to-ctxt
-        (cons (comp-limplify-top-level)
-              (mapcar #'comp-limplify-function lap-funcs))))
+  (mapc #'comp-add-func-to-ctxt (mapcar #'comp-limplify-function lap-funcs))
+  (comp-add-func-to-ctxt (comp-limplify-top-level)))
 
 
 ;;; SSA pass specific code.