The R Project SVN R

Rev

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

Rev 60844 Rev 60874
Line 40... Line 40...
40 
#ifndef max
 40 
#ifndef max
41 
#define max(a, b) ((a > b)?(a):(b))
 41 
#define max(a, b) ((a > b)?(a):(b))
42 
#endif
 42 
#endif
43 
 
 43 
 
44 
/* Was 'name' prior to 2.13.0, then .NAME, but checked as
 44 
/* Was 'name' prior to 2.13.0, then .NAME, but checked as
45 
   'name' up to 2.15.2'. */
 45 
   'name' up to 2.15.1. */
46 
static void check1arg2(SEXP arg, SEXP call, const char *formal)
 46 
static void check1arg2(SEXP arg, SEXP call, const char *formal)
47 
{
 47 
{
48 
    if (TAG(arg) == R_NilValue) return;
 48 
    if (TAG(arg) == R_NilValue) return;
49 
    errorcall(call, "the first argument should not be named");
 49 
    errorcall(call, "the first argument should not be named");
50 
 }
 50 
 }