The R Project SVN R

Rev

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

Rev 76864 Rev 77327
Line 1122... Line 1122...
1122 
	       recursion on the CDR */
 1122 
	       recursion on the CDR */
1123 
	    if (hasattr)
 1123 
	    if (hasattr)
1124 
		WriteItem(ATTRIB(s), ref_table, stream);
 1124 
		WriteItem(ATTRIB(s), ref_table, stream);
1125 
	    if (TAG(s) != R_NilValue)
 1125 
	    if (TAG(s) != R_NilValue)
1126 
		WriteItem(TAG(s), ref_table, stream);
 1126 
		WriteItem(TAG(s), ref_table, stream);
- 
 
 1127 
	    if (BNDCELL_TAG(s))
- 
 
 1128 
		R_expand_binding_value(s);
1127 
	    WriteItem(CAR(s), ref_table, stream);
 1129 
	    WriteItem(CAR(s), ref_table, stream);
1128 
	    /* now do a tail call to WriteItem to handle the CDR */
 1130 
	    /* now do a tail call to WriteItem to handle the CDR */
1129 
	    s = CDR(s);
 1131 
	    s = CDR(s);
1130 
	    goto tailcall;
 1132 
	    goto tailcall;
1131 
	case EXTPTRSXP:
 1133 
	case EXTPTRSXP: