From fb309c14f0f5075cd649c083abf2a0713b949030 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 2 Nov 2019 17:32:20 +0100 Subject: [PATCH] limplify top level at last --- lisp/emacs-lisp/comp.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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. -- 2.39.5