use nrevese where necessary

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 6d9ff8d51565a283265da4dc84055f4668b8e147..3a01bb12387fa89787a7a5a29c62da1a6cb5bc8b 100644 (file)
--- 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 ebc4e8fba0eb8ba988c44cb4050f3c215f69f1bc..398e441958102415b5a58c69085d3bef0f4bdd64 100644 (file)
--- 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)
     {