The R Project SVN R

Rev

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

Rev 48998 Rev 49006
Line 36... Line 36...
36 
	SETCAR(args, findFun(s, rho));				\
 36 
	SETCAR(args, findFun(s, rho));				\
37 
	UNPROTECT(1);						\
 37 
	UNPROTECT(1);						\
38 
    }
 38 
    }
39 
    find_char_fun
 39 
    find_char_fun
40 
 
 40 
 
- 
 
 41 
    if (TYPEOF(CAR(args)) != CLOSXP && TYPEOF(CAR(args)) != SPECIALSXP
41 
    if (TYPEOF(CAR(args)) != CLOSXP)
 42 
         &&  TYPEOF(CAR(args)) != BUILTINSXP )
42 
	errorcall(call, _("argument must be a closure"));
 43 
	errorcall(call, _("argument must be a closure"));
43 
    switch(PRIMVAL(op)) {
 44 
    switch(PRIMVAL(op)) {
44 
    case 0:
 45 
    case 0:
45 
	SET_RDEBUG(CAR(args), 1);
 46 
	SET_RDEBUG(CAR(args), 1);
46 
	break;
 47 
	break;