The R Project SVN R

Rev

Rev 89044 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89044 Rev 89523
Line 167... Line 167...
167 
    }
 167 
    }
168 
#endif
 168 
#endif
169 
    return t;
 169 
    return t;
170 
}
 170 
}
171 
 
 171 
 
- 
 
 172 
attribute_hidden
172 
SEXP lazy_duplicate(SEXP s) {
 173 
SEXP lazy_duplicate(SEXP s) {
173 
    switch (TYPEOF(s)) {
 174 
    switch (TYPEOF(s)) {
174 
    case NILSXP:
 175 
    case NILSXP:
175 
    case SYMSXP:
 176 
    case SYMSXP:
176 
    case ENVSXP:
 177 
    case ENVSXP:
Line 602... Line 603...
602 
	}
 603 
	}
603 
    }
 604 
    }
604 
    return deep ? duplicate(x) : shallow_duplicate(x);
 605 
    return deep ? duplicate(x) : shallow_duplicate(x);
605 
}
 606 
}
606 
 
 607 
 
- 
 
 608 
attribute_hidden
607 
SEXP R_shallow_duplicate_attr(SEXP x) { return duplicate_attr(x, FALSE); }
 609 
SEXP R_shallow_duplicate_attr(SEXP x) { return duplicate_attr(x, FALSE); }
608 
SEXP R_duplicate_attr(SEXP x) { return duplicate_attr(x, TRUE); }
 610 
SEXP R_duplicate_attr(SEXP x) { return duplicate_attr(x, TRUE); }