The R Project SVN R

Rev

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

Rev 37317 Rev 37600
Line 1075... Line 1075...
1075 
 
 1075 
 
1076 
SEXP attribute_hidden do_math2(SEXP call, SEXP op, SEXP args, SEXP env)
 1076 
SEXP attribute_hidden do_math2(SEXP call, SEXP op, SEXP args, SEXP env)
1077 
{
 1077 
{
1078 
    checkArity(op, args);
 1078 
    checkArity(op, args);
1079 
 
 1079 
 
1080 
    if (isComplex(CAR(args)))
 1080 
    if (isComplex(CAR(args)) ||
- 
 
 1081 
	(PRIMVAL(op) == 0 && isComplex(CADR(args))))
1081 
	return complex_math2(call, op, args, env);
 1082 
	return complex_math2(call, op, args, env);
1082 
 
 1083 
 
1083 
 
 1084 
 
1084 
    switch (PRIMVAL(op)) {
 1085 
    switch (PRIMVAL(op)) {
1085 
 
 1086