The R Project SVN R

Rev

Rev 80166 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 80166 Rev 80516
Line 573... Line 573...
573 
	retval = fun(call, op, args, env);
 573 
	retval = fun(call, op, args, env);
574 
    } else {
 574 
    } else {
575 
	R_ExternalRoutine fun = (R_ExternalRoutine) ofun;
 575 
	R_ExternalRoutine fun = (R_ExternalRoutine) ofun;
576 
	retval = fun(args);
 576 
	retval = fun(args);
577 
    }
 577 
    }
- 
 
 578 
 
- 
 
 579 
    R_try_clear_args_refcnt(args);
- 
 
 580 
 
578 
    vmaxset(vmax);
 581 
    vmaxset(vmax);
579 
    return check_retval(call, retval);
 582 
    return check_retval(call, retval);
580 
}
 583 
}
581 
 
 584 
 
582 
#ifdef __cplusplus
 585 
#ifdef __cplusplus