Remove remnants of old matrix ops registration technique

RConsortium · Nov 23, 2023 · 0b7300e · 0b7300e
1 parent d4be7f8
commit 0b7300e
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 11 deletions.
diff --git a/R/method-ops.R b/R/method-ops.R
@@ -26,13 +26,3 @@ chooseOpsMethod.S7_object <- function(x, y, mx, my, cl, reverse) TRUE
 matrixOps.S7_object <- function(x, y) {
   base_matrix_ops[[.Generic]](x, y)
 }
-
-
-on_load_define_matrixOps <- function() {
-  # if (getRversion() >= "4.3.0") {
-  # } else {
-  #   matrixOps.S7_object <<- function(e1, e2) {
-  #     base_matrix_ops[[.Generic]](e1, e2)
-  #   }
-  # }
-}
diff --git a/R/zzz.R b/R/zzz.R
@@ -122,7 +122,6 @@ methods::setOldClass(c("S7_method", "function", "S7_object"))
   activate_backward_compatiblility()
 
   on_load_make_convert_generic()
-  on_load_define_matrixOps()
   on_load_define_ops()
   on_load_define_or_methods()
   on_load_define_S7_type()