Remove sexp_named()

Author: lionel-

R/obj.R

@@ -34,11 +34,6 @@ sexp_address <- obj_address
 poke_type <- function(x, type) {
   invisible(.Call(ffi_poke_type, x, type))
 }
-sexp_named <- function(x) {
-  # Don't use `substitute()` because dots might be forwarded
-  arg <- match.call(expand.dots = FALSE)$x
-  .Call(ffi_named, arg, parent.frame())
-}
 
 mark_object <- function(x) {
   invisible(.Call(ffi_mark_object, x))

src/internal/encoding.c

@@ -32,7 +32,6 @@ r_obj* obj_encode_utf8(r_obj* x) {
   default: break;
   }
 
-  // For performance, avoid `KEEP()` / `FREE()` when not needed
   r_obj* attrib = r_attrib(x);
   if (attrib != r_null) {
     KEEP(x);

src/internal/exported.c

@@ -806,23 +806,6 @@ r_obj* ffi_promise_value(r_obj* x, r_obj* env) {
   }
 }
 
-// Picks up symbols from parent environment to avoid bumping namedness
-// during promise resolution
-r_obj* ffi_named(r_obj* x, r_obj* env) {
-  int n_kept = 0;
-
-  x = PROTECT(Rf_findVarInFrame3(env, x, FALSE));
-  ++n_kept;
-
-  if (TYPEOF(x) == PROMSXP) {
-    x = PROTECT(Rf_eval(x, env));
-    ++n_kept;
-  }
-
-  UNPROTECT(n_kept);
-  return Rf_ScalarInteger(NAMED(x));
-}
-
 r_obj* ffi_find_var(r_obj* env, r_obj* sym) {
   return Rf_findVar(sym, env);
 }

src/internal/init.c

@@ -142,7 +142,6 @@ static const R_CallMethodDef r_callables[] = {
   {"ffi_lof_unwrap",                   (DL_FUNC) &ffi_lof_unwrap, 1},
   {"ffi_mark_object",                  (DL_FUNC) &ffi_mark_object, 1},
   {"ffi_missing_arg",                  (DL_FUNC) &ffi_missing_arg, 0},
-  {"ffi_named",                        (DL_FUNC) &ffi_named, 2},
   {"ffi_names2",                       (DL_FUNC) &ffi_names2, 2},
   {"ffi_names_as_unique",              (DL_FUNC) &ffi_names_as_unique, 2},
   {"ffi_new_call",                     (DL_FUNC) &ffi_new_call_node, 2},