Displaying 1 result from an estimated 1 matches for "find_char_fun".
2001 Oct 09
0
RE: [R] List of functions with debug() and trace()
...-1.3.1/src/include/Internal.h
208a209
> SEXP do_isdebug(SEXP, SEXP, SEXP, SEXP);
diff -r R-1.3.1-orig//src/main/debug.c R-1.3.1/src/main/debug.c
74a75,95
>
>
> SEXP do_isdebug(SEXP call, SEXP op, SEXP args, SEXP rho)
> {
> SEXP ans;
>
> checkArity(op,args);
> find_char_fun
>
> PROTECT(ans = allocVector(LGLSXP, 1));
>
> if (TYPEOF(CAR(args)) != CLOSXP)
> LOGICAL(ans)[0] = 0; /* False if not function */
> else
> LOGICAL(ans)[0] = DEBUG(CAR(args));
>
> UNPROTECT(1);
>
> return ans;
> }
>
diff -...