* src/comp.c: Few improvements following 71b8f1fc635.

* src/comp.c (ABI_VERSION): Update.
(Fcomp__register_lambda, Fcomp__register_subr): Remove unnecessary
check.
* src/comp.c (Fcomp__register_lambda, Fcomp__register_subr):
Remove unnecessary change.

diff --git a/src/comp.c b/src/comp.c
index 349f228558e5a4d0fea4773f9611b9b5cedbf58a..398f35ddb0ba8ecaa0d3654b9cee6f1affedc123 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -447,7 +447,7 @@ load_gccjit_if_necessary (bool mandatory)
 
 \f
 /* Increase this number to force a new Vcomp_abi_hash to be generated.  */
-#define ABI_VERSION "4"
+#define ABI_VERSION "5"
 
 /* Length of the hashes used for eln file naming.  */
 #define HASH_LENGTH 8
@@ -5463,9 +5463,7 @@ This gets called by top_level_run during the load phase.  */)
 {
   Lisp_Object doc_idx = FIRST (rest);
   Lisp_Object intspec = SECOND (rest);
-  Lisp_Object command_modes = Qnil;
-  if (!NILP (XCDR (XCDR (rest))))
-    command_modes = THIRD (rest);
+  Lisp_Object command_modes = THIRD (rest);
 
   struct Lisp_Native_Comp_Unit *cu = XNATIVE_COMP_UNIT (comp_u);
   if (cu->loaded_once)
@@ -5498,9 +5496,7 @@ This gets called by top_level_run during the load phase.  */)
 {
   Lisp_Object doc_idx = FIRST (rest);
   Lisp_Object intspec = SECOND (rest);
-  Lisp_Object command_modes = Qnil;
-  if (!NILP (XCDR (XCDR (rest))))
-    command_modes = THIRD (rest);
+  Lisp_Object command_modes = THIRD (rest);
 
   Lisp_Object tem =
     make_subr (SYMBOL_NAME (name), minarg, maxarg, c_name, type, doc_idx,