diff --git a/R/aaa-tools.R b/R/aaa-tools.R
deleted file mode 100644
index 8bad767..0000000
--- a/R/aaa-tools.R
+++ /dev/null
@@ -1,18 +0,0 @@
-# nocov start
-forward_to <- function(f, envir = parent.frame()) {
-  f_fmls <- formals(f)
-  f_called_fmls <- stats::setNames(lapply(names(f_fmls), as.symbol), names(f_fmls))
-
-  f_call <- as.call(c(substitute(f), f_called_fmls))
-
-  f_ret <- eval(bquote(
-    function() {
-      .(f_call)
-    }
-  ))
-
-  formals(f_ret) <- f_fmls
-  environment(f_ret) <- envir
-  f_ret
-}
-# nocov end