The R Project SVN R

Rev

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

Rev 64970 Rev 65373
Line 836... Line 836...
836 
	break;
 836 
	break;
837 
    default:
 837 
    default:
838 
	break;
 838 
	break;
839 
    }
 839 
    }
840 
    if (isObject(CAR(args))) {
 840 
    if (isObject(CAR(args))) {
- 
 
 841 
	if (MAYBE_REFERENCED(CAR(args)))
841 
	SETCAR(args, duplicate(CAR(args)));
 842 
	    SETCAR(args, shallow_duplicate(CAR(args)));
842 
	setAttrib(CAR(args), R_ClassSymbol, R_NilValue);
 843 
	setAttrib(CAR(args), R_ClassSymbol, R_NilValue);
843 
    }
 844 
    }
844 
    return CAR(args);
 845 
    return CAR(args);
845 
}
 846 
}
846 
 
 847