The R Project SVN R

Rev

Rev 74684 | Rev 78184 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 74684 Rev 75532
Line 1005... Line 1005...
1005 
    case REALSXP:
 1005 
    case REALSXP:
1006 
	ans = realSubscript(s, ns, nx, stretch, call);
 1006 
	ans = realSubscript(s, ns, nx, stretch, call);
1007 
	break;
 1007 
	break;
1008 
    case STRSXP:
 1008 
    case STRSXP:
1009 
    {
 1009 
    {
1010 
	SEXP names = getAttrib(x, R_NamesSymbol);
 1010 
	SEXP names = PROTECT(getAttrib(x, R_NamesSymbol));
1011 
	/* *stretch = 0; */
 1011 
	/* *stretch = 0; */
1012 
	ans = stringSubscript(s, ns, nx, names, stretch, call);
 1012 
	ans = stringSubscript(s, ns, nx, names, stretch, call);
- 
 
 1013 
	UNPROTECT(1); /* names */
1013 
	break;
 1014 
	break;
1014 
    }
 1015 
    }
1015 
    case SYMSXP:
 1016 
    case SYMSXP:
1016 
	*stretch = 0;
 1017 
	*stretch = 0;
1017 
	if (s == R_MissingArg) {
 1018 
	if (s == R_MissingArg) {