fix naming for predicate SUBR_NATIVE_COMPILEDP

1 files changed, 2 insertions, 2 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 6d6f6934bab..faa8e703937 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6564,7 +6564,7 @@ mark_object (Lisp_Object arg)
             break;
 
           case PVEC_SUBR:
-            if (SUBRP_NATIVE_COMPILEDP (obj))
+            if (SUBR_NATIVE_COMPILEDP (obj))
               {
                 set_vector_marked (ptr);
                 struct Lisp_Subr *subr = XSUBR (obj);
@@ -6715,7 +6715,7 @@ survives_gc_p (Lisp_Object obj)
 
     case Lisp_Vectorlike:
       survives_p =
-        (SUBRP (obj) && !SUBRP_NATIVE_COMPILEDP (obj)) ||
+        (SUBRP (obj) && !SUBR_NATIVE_COMPILEDP (obj)) ||
         vector_marked_p (XVECTOR (obj));
       break;