The R Project SVN – R – Diff – /trunk/src/main/subscript.c

 		    break;
+		}
+	    }
 	/* Try for partial match */
 	if (pok && indx < 0) {
+	    len = strlen(CHAR(STRING_ELT(s, pos)));
+	    for(i = 0; i < length(names); i++) {
-	    if (STRING_ELT(names, i) == NA_STRING ||
+		if (STRING_ELT(names, i) == NA_STRING ||
-		STRING_ELT(s, pos) == NA_STRING) {
+		    STRING_ELT(s, pos) == NA_STRING) {
-		/* NA matches nothing */
+		    /* NA matches nothing */
-	    } else {
+		} else {
-		len = strlen(CHAR(STRING_ELT(s, pos)));
-		for(i = 0; i < length(names); i++) {
 		    if(!strncmp(CHAR(STRING_ELT(names, i)),
 				CHAR(STRING_ELT(s, pos)), len)) {
 			if(indx == -1)/* first one */
 			    indx = i;
 			else

The R Project SVN R