Fixed the non-API call in the C code

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: GSVA
-Version: 1.53.8
+Version: 1.53.9
 Title: Gene Set Variation Analysis for Microarray and RNA-Seq Data
 Authors@R: c(person("Robert", "Castelo", role=c("aut", "cre"), email="[email protected]"),
              person("Justin", "Guinney", role="aut", email="[email protected]"),

src/ecdfvals.c

@@ -52,11 +52,12 @@ dbl_cmp(const void* a, const void* b) {
 }
 
 /* src/main/unique.c */
+/*
 SEXP match5(SEXP itable, SEXP ix, int nmatch, SEXP incomp, SEXP env);
+*/
 
 SEXP
 match_int(SEXP x, SEXP table) {
-  /*
   SEXP s, t, ansR;
 
   PROTECT(t = s = allocList(3));
@@ -67,8 +68,11 @@ match_int(SEXP x, SEXP table) {
   SETCAR(t, table);
   SET_TAG(t, install("table"));
   ansR = eval(s, R_GlobalEnv);
-  */
+
+  /*
   SEXP ansR = match5(table, x, NA_INTEGER, NULL, R_GlobalEnv);
+  */
+  UNPROTECT(1); /* t s */
 
   return(ansR);
 }