一种可能性是做match.call所做的事情（感谢Ricardo Saporta为我指明了方向）。这需要从R源代码中复制粘贴一些定义，我在这里不会这样做，但基本思想是从R_GlobalContext中获取调用函数，然后从中提取函数参数。草图如下：

R_fn = function(...) .Call("cpp_fn")

// and in C++ code
Language cpp_fn() {
  SEXP sysp = ((RCNTXT*)R_GlobalContext)->sysparent;
  RCNTXT *cptr = (RCNTXT*)R_GlobalContext;

  while (cptr != NULL) {
    if (cptr->callflag & CTXT_FUNCTION && cptr->cloenv == sysp)
      break;
    cptr = cptr->nextcontext;
  }
  cptr = cptr->nextcontext; // because this is called from .Call and not from R_fn

  // and now cptr->promargs has the unevaluated arguments to do as one pleases
  // e.g.
  Language firstArg(R_PromiseExpr(CAR(cptr->promargs)));

  return firstArg;
}

我已经成功地使用了.External2接口，并在R Package 器的环境中查找了未评估的promise。没有彻底测试，但节省了我几百纳秒与交换了R级substitute()和match.call()。
在R中：

subs <- function(expr, ...) .External2(c_subs)

在C中：

#include <Rinternals.h>

SEXP c_subs(SEXP call, SEXP op, SEXP args, SEXP rho) {
    static SEXP R_ExprSymbol = NULL;
    if (R_ExprSymbol == NULL)
        R_ExprSymbol = Rf_install("expr");
    SEXP expr = Rf_findVar(R_ExprSymbol, rho); // Promise
    SEXP dots = Rf_findVar(R_DotsSymbol, rho); // Pairlist of promises
    return Rf_list2(PREXPR(expr), PREXPR(CAR(dots)));
}