Displaying 1 result from an estimated 1 matches for "do_parentenvget".
Did you mean:
do_parentenvgets
2014 Oct 17
1
Making parent.env<- an error for package namespaces and package imports
...!= 1)
+ return FALSE;
+
+ const char *imports_prefix = "imports:";
+ const char *name_string = CHAR(STRING_ELT(name, 0));
+ if (!strncmp(name_string, imports_prefix, strlen(imports_prefix)))
+ return TRUE;
+ else
+ return FALSE;
+}
+
SEXP attribute_hidden do_parentenvgets(SEXP call, SEXP op, SEXP args, SEXP rho)
{
SEXP env, parent;
@@ -371,6 +389,10 @@
error(_("argument is not an environment"));
if( env == R_EmptyEnv )
error(_("can not set parent of the empty environment"));
+ if (R_EnvironmentIsLocked(env) && R_IsNames...