use S4SXP instead of OBJSXP for R-oldrel compat.

r-lib · Nov 21, 2024 · d102268 · d102268
1 parent 0fbccb3
commit d102268
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/reassign.c b/src/reassign.c
@@ -34,7 +34,7 @@ void CheckBody(SEXP x) {
   case EXTPTRSXP:
   case WEAKREFSXP:
   case RAWSXP:
-  case OBJSXP:
+  case S4SXP: // renamed to OBJSXP
     return;
 
   default:
@@ -56,7 +56,7 @@ void CheckFormals(SEXP ls) {
     for (; ls != R_NilValue; ls = CDR(ls))
       if (TYPEOF(TAG(ls)) != SYMSXP)
         goto err;
-      return;
+    return;
   }
   err:
     error("Unexpected closure formals");