The R Project SVN R

Rev

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

Rev 75418 Rev 75503
Line 213... Line 213...
213 
	    break;
 213 
	    break;
214 
	case LISTSXP: case LANGSXP:
 214 
	case LISTSXP: case LANGSXP:
215 
	    {
 215 
	    {
216 
		SEXP lc = v;
 216 
		SEXP lc = v;
217 
		while (lc != R_NilValue) {
 217 
		while (lc != R_NilValue) {
218 
		    if (TYPEOF(lc) != LISTSXP) {
 218 
		    if (TYPEOF(lc) != LISTSXP && TYPEOF(lc) != LANGSXP) {
219 
			/* a dotted pair */
 219 
			/* a dotted pair */
220 
			pp(pre + 2);
 220 
			pp(pre + 2);
221 
			Rprintf(".\n");
 221 
			Rprintf(".\n");
222 
			inspect_tree(pre + 2, lc, deep - 1, pvec);
 222 
			inspect_tree(pre + 2, lc, deep - 1, pvec);
223 
			break;
 223 
			break;