StringFromLogical() w/o warn

git-svn-id: https://svn.r-project.org/R/trunk@88148 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: maechler

src/include/Defn.h

@@ -1957,7 +1957,7 @@ int Rf_LogicalFromString(SEXP, int*);
 int Rf_IntegerFromString(SEXP, int*);
 double Rf_RealFromString(SEXP, int*);
 Rcomplex Rf_ComplexFromString(SEXP, int*);
-SEXP Rf_StringFromLogical(int, int*);
+SEXP Rf_StringFromLogical(int);
 SEXP Rf_StringFromInteger(int, int*);
 SEXP Rf_StringFromReal(double, int*);
 SEXP Rf_StringFromComplex(Rcomplex, int*);

src/main/coerce.c

@@ -296,7 +296,7 @@ attribute_hidden Rcomplex ComplexFromString(SEXP x, int *warn)
 }
 
 
-attribute_hidden SEXP StringFromLogical(int x, int *warn)
+attribute_hidden SEXP StringFromLogical(int x)
 {
     static SEXP lglcache = NULL;
     if (x == NA_LOGICAL) return NA_STRING;
@@ -423,7 +423,7 @@ static SEXP coerceToSymbol(SEXP v)
     PROTECT(v);
     switch(TYPEOF(v)) {
     case LGLSXP:
-	ans = StringFromLogical(LOGICAL_ELT(v, 0), &warn);
+	ans = StringFromLogical(LOGICAL_ELT(v, 0));
 	break;
     case INTSXP:
 	ans = StringFromInteger(INTEGER_ELT(v, 0), &warn);
@@ -759,7 +759,7 @@ static SEXP coerceToString(SEXP v)
     case LGLSXP:
 	for (i = 0; i < n; i++) {
 //	    if ((i+1) % NINTERRUPT == 0) R_CheckUserInterrupt();
-	    SET_STRING_ELT(ans, i, StringFromLogical(LOGICAL_ELT(v, i), &warn));
+	    SET_STRING_ELT(ans, i, StringFromLogical(LOGICAL_ELT(v, i)));
 	}
 	break;
     case INTSXP: