From: Andrea Corallo Date: Fri, 22 Nov 2019 18:15:55 +0000 (+0100) Subject: better loop style into comp-compute-edges X-Git-Tag: emacs-28.0.90~2727^2~956 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ef0a1814eca5dc7f32e2784b3fa61498d220a70;p=emacs.git better loop style into comp-compute-edges --- diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index ff091e6cde9..fffb845e4ee 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -1244,16 +1244,15 @@ Top level forms for the current context are rendered too." (list "block does not end with a branch" bb (comp-func-symbol-name comp-func))))) - finally (progn - (setf (comp-func-edges comp-func) - (nreverse (comp-func-edges comp-func))) - ;; Update edge refs into blocks. - (cl-loop for edge in (comp-func-edges comp-func) - do (push edge - (comp-block-out-edges (comp-edge-src edge))) - (push edge - (comp-block-in-edges (comp-edge-dst edge)))) - (comp-log-edges comp-func))))) + finally (setf (comp-func-edges comp-func) + (nreverse (comp-func-edges comp-func))) + ;; Update edge refs into blocks. + (cl-loop for edge in (comp-func-edges comp-func) + do (push edge + (comp-block-out-edges (comp-edge-src edge))) + (push edge + (comp-block-in-edges (comp-edge-dst edge)))) + (comp-log-edges comp-func)))) (defun comp-collect-rev-post-order (basic-block) "Walk BASIC-BLOCK children and return their name in reversed post-order."