The R Project SVN R

Rev

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

Rev 5458 Rev 5731
Line 31... Line 31...
31 
	PROTECT(s = install(CHAR(STRING(CAR(args))[0])));
 31 
	PROTECT(s = install(CHAR(STRING(CAR(args))[0])));
32 
	CAR(args )= findFun(s, rho);
 32 
	CAR(args )= findFun(s, rho);
33 
	UNPROTECT(1);
 33 
	UNPROTECT(1);
34 
    }
 34 
    }
35 
    if (TYPEOF(CAR(args)) != CLOSXP)
 35 
    if (TYPEOF(CAR(args)) != CLOSXP)
36 
	errorcall(call, "argument must be a function\n");
 36 
	errorcall(call, "argument must be a function");
37 
    switch(PRIMVAL(op)) {
 37 
    switch(PRIMVAL(op)) {
38 
    case 0:
 38 
    case 0:
39 
	DEBUG(CAR(args)) = 1;
 39 
	DEBUG(CAR(args)) = 1;
40 
	break;
 40 
	break;
41 
    case 1:
 41 
    case 1:
Line 51... Line 51...
51 
{
 51 
{
52 
    checkArity(op, args);
 52 
    checkArity(op, args);
53 
    if (TYPEOF(CAR(args)) != CLOSXP &&
 53 
    if (TYPEOF(CAR(args)) != CLOSXP &&
54 
	TYPEOF(CAR(args)) != BUILTINSXP &&
 54 
	TYPEOF(CAR(args)) != BUILTINSXP &&
55 
	TYPEOF(CAR(args)) != SPECIALSXP)
55 
	TYPEOF(CAR(args)) != SPECIALSXP)
56 
	    errorcall(call, "argument must be a function\n");
 56 
	    errorcall(call, "argument must be a function");
57 
 
 57 
 
58 
    switch(PRIMVAL(op)) {
 58 
    switch(PRIMVAL(op)) {
59 
    case 0:
 59 
    case 0:
60 
	TRACE(CAR(args)) = 1;
 60 
	TRACE(CAR(args)) = 1;
61 
	break;
 61 
	break;