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

[Andrea Corallo]

branch: master
commit 7872d496d5dc272dacd2d2a5fd9238e39f2dbea8
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * 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.
---
 src/comp.c | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/src/comp.c b/src/comp.c
index 349f228558..398f35ddb0 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -447,7 +447,7 @@ load_gccjit_if_necessary (bool mandatory)
 
 
 /* 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,