Missing unprotect

…. which was causing a stack imbalance.
DomBennett · Sep 5, 2016 · fc0bb5e · fc0bb5e
1 parent 9fa2e07
commit fc0bb5e
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/get_tools.c b/src/get_tools.c
@@ -58,6 +58,7 @@ SEXP cGetNdPrids(SEXP prid_, SEXP prids_)
     prid = prids[prid - 1];
     i++;
   }
+  UNPROTECT(1);
   SEXP res;
   int j;
   PROTECT(res=allocVector(INTSXP, i-2));