The R Project SVN R

Rev

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

Rev 40705 Rev 41713
Line 35... Line 35...
35 
	UNPROTECT(1);						\
 35 
	UNPROTECT(1);						\
36 
    }
 36 
    }
37 
    find_char_fun
 37 
    find_char_fun
38 
 
 38 
 
39 
    if (TYPEOF(CAR(args)) != CLOSXP)
 39 
    if (TYPEOF(CAR(args)) != CLOSXP)
40 
	errorcall(call, _("argument must be a function"));
 40 
	errorcall(call, _("argument must be a closure"));
41 
    switch(PRIMVAL(op)) {
 41 
    switch(PRIMVAL(op)) {
42 
    case 0:
 42 
    case 0:
43 
	SET_DEBUG(CAR(args), 1);
 43 
	SET_DEBUG(CAR(args), 1);
44 
	break;
 44 
	break;
45 
    case 1:
 45 
    case 1: