The R Project SVN R

Rev

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

Rev 63211 Rev 63223
Line 1046... Line 1046...
1046 
 
 1046 
 
1047 
static SEXP TagArg(SEXP arg, SEXP tag, YYLTYPE *lloc)
 1047 
static SEXP TagArg(SEXP arg, SEXP tag, YYLTYPE *lloc)
1048 
{
 1048 
{
1049 
    switch (TYPEOF(tag)) {
 1049 
    switch (TYPEOF(tag)) {
1050 
    case STRSXP:
 1050 
    case STRSXP:
1051 
    {
 - 
 
1052 
	const void *vmax = vmaxget();
 - 
 
1053 
	tag = install(translateChar(STRING_ELT(tag, 0)));
 1051 
	tag = installTrChar(STRING_ELT(tag, 0));
1054 
	vmaxset(vmax);
 - 
 
1055 
    }
 - 
 
1056 
    case NILSXP:
 1052 
    case NILSXP:
1057 
    case SYMSXP:
 1053 
    case SYMSXP:
1058 
	return lang2(arg, tag);
 1054 
	return lang2(arg, tag);
1059 
    default:
 1055 
    default:
1060 
	error(_("incorrect tag type at line %d"), lloc->first_line); return R_NilValue/* -Wall */;
 1056 
	error(_("incorrect tag type at line %d"), lloc->first_line); return R_NilValue/* -Wall */;