The R Project SVN R

Rev

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

Rev 51270 Rev 51316
Line 1039... Line 1039...
1039 
{
 1039 
{
1040 
    SEXP s;
 1040 
    SEXP s;
1041 
    if (DispatchGroup("Math", call, op, args, env, &s))
 1041 
    if (DispatchGroup("Math", call, op, args, env, &s))
1042 
	return s;
 1042 
	return s;
1043 
    checkArity(op, args); /* but is -1 in names.c */
 1043 
    checkArity(op, args); /* but is -1 in names.c */
- 
 
 1044 
    check1arg(args, call, "x");
1044 
    if (isComplex(CAR(args)))
 1045 
    if (isComplex(CAR(args)))
1045 
	errorcall(call, _("unimplemented complex function"));
 1046 
	errorcall(call, _("unimplemented complex function"));
1046 
    return math1(CAR(args), trunc, call);
 1047 
    return math1(CAR(args), trunc, call);
1047 
}
 1048 
}
1048 
 
 1049