Annotate UNPROTECT

Author: MichaelChirico

src/mergelist.c

@@ -65,14 +65,14 @@ SEXP cbindlist(SEXP x, SEXP copyArg) {
     mergeIndexAttrib(index, getAttrib(thisx, sym_index));
     if (isNull(key)) // first key is retained
       key = getAttrib(thisx, sym_sorted);
-    UNPROTECT(protecti);
+    UNPROTECT(protecti); // thisnames, thisxcol
   }
   if (isNull(ATTRIB(index)))
     setAttrib(ans, sym_index, R_NilValue);
   setAttrib(ans, R_NamesSymbol, names);
   setAttrib(ans, sym_sorted, key);
   if (verbose)
     Rprintf(_("cbindlist: took %.3fs\n"), omp_get_wtime()-tic);
-  UNPROTECT(3);
+  UNPROTECT(3); // ans, index, names
   return ans;
 }