The R Project SVN R

Rev

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

Rev 70830 Rev 72385
Line 239... Line 239...
239 
	TYPEOF(object) == BUILTINSXP ||
 239 
	TYPEOF(object) == BUILTINSXP ||
240 
	TYPEOF(object) == SPECIALSXP)
 240 
	TYPEOF(object) == SPECIALSXP)
241 
	errorcall(call, _("argument must not be a function"));
 241 
	errorcall(call, _("argument must not be a function"));
242 
 
 242 
 
243 
    previous = CADR(argList);
 243 
    previous = CADR(argList);
244 
    if(!isNull(previous) && !isString(previous))
 244 
    if(!isNull(previous) && (!isString(previous) || LENGTH(previous) != 1))
245 
	    errorcall(call, _("invalid '%s' argument"), "previous");
 245 
	    errorcall(call, _("invalid '%s' argument"), "previous");
246 
 
 246 
 
247 
    if (RTRACE(object)) {
 247 
    if (RTRACE(object)) {
248 
	snprintf(buffer, 21, "<%p>", (void *) object);
 248 
	snprintf(buffer, 21, "<%p>", (void *) object);
249 
	ans = mkString(buffer);
 249 
	ans = mkString(buffer);