From 9913638cc596a018c7d687652a3abb61325dc4f1 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 5 Sep 2019 21:47:35 +0200 Subject: [PATCH] use nrevese where necessary --- lisp/emacs-lisp/comp.el | 2 +- src/comp.c | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 6d9ff8d5156..3a01bb12387 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -832,7 +832,7 @@ the annotation emission." ;; Reverse insns into all basic blocks. (cl-loop for bb being the hash-value in (comp-func-blocks func) do (setf (comp-block-insns bb) - (reverse (comp-block-insns bb)))) + (nreverse (comp-block-insns bb)))) (comp-log-func func) func)) diff --git a/src/comp.c b/src/comp.c index ebc4e8fba0e..398e4419581 100644 --- a/src/comp.c +++ b/src/comp.c @@ -1688,7 +1688,7 @@ emit_ctxt_code (void) EMACS_UINT d_reloc_len = XFIXNUM (FUNCALL1 (hash-table-count, FUNCALL1 (comp-ctxt-data-relocs-idx, Vcomp_ctxt))); - Lisp_Object d_reloc = Freverse (FUNCALL1 (comp-ctxt-data-relocs-l, Vcomp_ctxt)); + Lisp_Object d_reloc = Fnreverse (FUNCALL1 (comp-ctxt-data-relocs-l, Vcomp_ctxt)); d_reloc = Fvconcat (1, &d_reloc); comp.data_relocs = @@ -1741,7 +1741,7 @@ emit_ctxt_code (void) } Lisp_Object f_reloc_vec = make_vector (n_frelocs, Qnil); - f_reloc_list = Freverse (f_reloc_list); + f_reloc_list = Fnreverse (f_reloc_list); ptrdiff_t i = 0; FOR_EACH_TAIL (f_reloc_list) { -- 2.39.5