The R Project SVN R

Rev

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

Rev 60667 Rev 63223
Line 32... Line 32...
32 
 
 32 
 
33 
    checkArity(op,args);
 33 
    checkArity(op,args);
34 
#define find_char_fun \
 34 
#define find_char_fun \
35 
    if (isValidString(CAR(args))) {				\
 35 
    if (isValidString(CAR(args))) {				\
36 
	SEXP s;							\
 36 
	SEXP s;							\
37 
	PROTECT(s = install(translateChar(STRING_ELT(CAR(args), 0))));	\
 37 
	PROTECT(s = installTrChar(STRING_ELT(CAR(args), 0)));	\
38 
	SETCAR(args, findFun(s, rho));				\
 38 
	SETCAR(args, findFun(s, rho));				\
39 
	UNPROTECT(1);						\
 39 
	UNPROTECT(1);						\
40 
    }
 40 
    }
41 
    find_char_fun
 41 
    find_char_fun
42 
 
 42