The R Project SVN R

Rev

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

Rev 74756 Rev 75784
Line 1094... Line 1094...
1094 
    case LANGSXP:
 1094 
    case LANGSXP:
1095 
	printcomment(s, d);
 1095 
	printcomment(s, d);
1096 
	if (!isNull(ATTRIB(s)))
 1096 
	if (!isNull(ATTRIB(s)))
1097 
	    d->sourceable = FALSE;
 1097 
	    d->sourceable = FALSE;
1098 
	SEXP op = CAR(s);
 1098 
	SEXP op = CAR(s);
- 
 
 1099 
	Rboolean doquote = FALSE;
1099 
        Rboolean doquote, maybe_quote = d_opts_in & QUOTEEXPRESSIONS;
 1100 
	Rboolean maybe_quote = d_opts_in & QUOTEEXPRESSIONS;
1100 
	if (maybe_quote) {
 1101 
	if (maybe_quote) {
1101 
	    // do *not* quote() formulas:
 1102 
	    // do *not* quote() formulas:
1102 
	    doquote = // := op is not `~` (tilde) :
 1103 
	    doquote = // := op is not `~` (tilde) :
1103 
		!((TYPEOF(op) == SYMSXP) &&
 1104 
		!((TYPEOF(op) == SYMSXP) &&
1104 
		  !strcmp(CHAR(PRINTNAME(op)), "~"));
 1105 
		  !strcmp(CHAR(PRINTNAME(op)), "~"));