From f716a9540bc7a8afa06e39fbeb1c20070f63cad4 Mon Sep 17 00:00:00 2001 From: Indrajeet Patil Date: Thu, 27 Oct 2022 16:12:24 +0200 Subject: [PATCH] Remove unneeded `cloneable` parameter for `create_super_env()` Split from #267 --- R/new.R | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/R/new.R b/R/new.R index 6b8770c..cd23adc 100644 --- a/R/new.R +++ b/R/new.R @@ -91,12 +91,10 @@ generator_funs$new <- function(...) { if (portable) { # Set up the superclass objects super_struct <- create_super_env(inherit, public_bind_env, - private_bind_env, portable = TRUE, - cloneable = cloneable) + private_bind_env, portable = TRUE) } else { # Set up the superclass objects - super_struct <- create_super_env(inherit, public_bind_env, portable = FALSE, - cloneable = cloneable) + super_struct <- create_super_env(inherit, public_bind_env, portable = FALSE) } enclos_env$super <- super_struct$bind_env @@ -201,7 +199,7 @@ encapsulate({ # recursing early on in the function, and then fill the methods downward by # doing the work for each level and passing the needed information down. create_super_env <- function(inherit, public_bind_env, private_bind_env = NULL, - portable = TRUE, cloneable = TRUE) { + portable = TRUE) { public_methods <- inherit$public_methods private_methods <- inherit$private_methods active <- inherit$active @@ -247,7 +245,7 @@ encapsulate({ inherit_inherit <- inherit$get_inherit() if (!is.null(inherit_inherit)) { super_struct <- create_super_env(inherit_inherit, public_bind_env, - private_bind_env, portable, cloneable) + private_bind_env, portable) super_enclos_env$super <- super_struct$bind_env # Merge this level's methods over the superclass methods