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 3419... Line 3419...
3419 
 
 3419 
 
3420 
static SEXP TagArg(SEXP arg, SEXP tag, YYLTYPE *lloc)
 3420 
static SEXP TagArg(SEXP arg, SEXP tag, YYLTYPE *lloc)
3421 
{
 3421 
{
3422 
    switch (TYPEOF(tag)) {
 3422 
    switch (TYPEOF(tag)) {
3423 
    case STRSXP:
 3423 
    case STRSXP:
3424 
    {
 - 
 
3425 
	const void *vmax = vmaxget();
 - 
 
3426 
	tag = install(translateChar(STRING_ELT(tag, 0)));
 3424 
	tag = installTrChar(STRING_ELT(tag, 0));
3427 
	vmaxset(vmax);
 - 
 
3428 
    }
 - 
 
3429 
    case NILSXP:
 3425 
    case NILSXP:
3430 
    case SYMSXP:
 3426 
    case SYMSXP:
3431 
	return lang2(arg, tag);
 3427 
	return lang2(arg, tag);
3432 
    default:
 3428 
    default:
3433 
	error(_("incorrect tag type at line %d"), lloc->first_line); return R_NilValue/* -Wall */;
 3429 
	error(_("incorrect tag type at line %d"), lloc->first_line); return R_NilValue/* -Wall */;