The R Project SVN R

Rev

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

Rev 6098 Rev 6191
Line 57... Line 57...
57 
    find_char_fun
 57 
    find_char_fun
58 
 
 58 
 
59 
    if (TYPEOF(CAR(args)) != CLOSXP &&
 59 
    if (TYPEOF(CAR(args)) != CLOSXP &&
60 
	TYPEOF(CAR(args)) != BUILTINSXP &&
 60 
	TYPEOF(CAR(args)) != BUILTINSXP &&
61 
	TYPEOF(CAR(args)) != SPECIALSXP)
 61 
	TYPEOF(CAR(args)) != SPECIALSXP)
62 
	    errorcall(call, "argument must be a function\n");
 62 
	    errorcall(call, "argument must be a function");
63 
 
 63 
 
64 
    switch(PRIMVAL(op)) {
 64 
    switch(PRIMVAL(op)) {
65 
    case 0:
 65 
    case 0:
66 
	TRACE(CAR(args)) = 1;
 66 
	TRACE(CAR(args)) = 1;
67 
	break;
 67 
	break;