Skip to content
Snippets Groups Projects
Commit 52bd5eb4 authored by Florian Angerer's avatar Florian Angerer
Browse files

Added upcall for Rf_match.

parent 4dcb1b95
No related branches found
No related tags found
No related merge requests found
......@@ -275,6 +275,7 @@ typedef double (*call_Rf_qunif)(double a, double b, double c, int d, int e);
typedef double (*call_Rf_dunif)(double a, double b, double c, int d);
typedef double (*call_Rf_punif)(double a, double b, double c, int d, int e);
typedef double (*call_Rf_runif)(double x, double y);
typedef SEXP (*call_Rf_match)(SEXP itable, SEXP ix, int nmatch);
typedef SEXP (*call_getvar)();
......
......@@ -31,6 +31,6 @@ SEXP Rf_matchE(SEXP itable, SEXP ix, int nmatch, SEXP env)
/* used from other code, not here: */
SEXP Rf_match(SEXP itable, SEXP ix, int nmatch)
{
return R_NilValue;
return ((call_Rf_match) callbacks[Rf_match_x])(itable, ix, nmatch);
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment