The R Project SVN R

Rev

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

Rev 48732 Rev 51721
Line 771... Line 771...
771 
	SET_VECTOR_ELT(DE->work, wcol - 1, tmp2);
 771 
	SET_VECTOR_ELT(DE->work, wcol - 1, tmp2);
772 
    }
 772 
    }
773 
    return newcol;
 773 
    return newcol;
774 
}
 774 
}
775 
 
 775 
 
776 
static SEXP lang5(SEXP s, SEXP t, SEXP u, SEXP v, SEXP w)
 - 
 
777 
{
 - 
 
778 
    PROTECT(s);
 - 
 
779 
    s = LCONS(s, list4(t, u, v, w));
 - 
 
780 
    UNPROTECT(1);
 - 
 
781 
    return s;
 - 
 
782 
}
 - 
 
783 
 
 - 
 
784 
static SEXP processEscapes(SEXP x)
 776 
static SEXP processEscapes(SEXP x)
785 
{
 777 
{
786 
    SEXP newval, pattern, replacement, expr;
 778 
    SEXP newval, pattern, replacement, expr;
787 
    ParseStatus status;
 779 
    ParseStatus status;
788
780