diff --git a/.carve_ignore b/.carve/.carve_ignore
similarity index 100%
rename from .carve_ignore
rename to .carve/.carve_ignore
diff --git a/.carve/ignore b/.carve/ignore
new file mode 100644
index 00000000..05097cd4
--- /dev/null
+++ b/.carve/ignore
@@ -0,0 +1,4 @@
+babashka.impl.pipe-signal-handler/pipe-signal-received?
+babashka.impl.pipe-signal-handler/handle-pipe!
+babashka.impl.sigint-handler/handle-sigint!
+babashka.impl.classes/generate-reflection-file
diff --git a/src/babashka/impl/clojure/test.clj b/src/babashka/impl/clojure/test.clj
index c7cfbfd1..a0540901 100644
--- a/src/babashka/impl/clojure/test.clj
+++ b/src/babashka/impl/clojure/test.clj
@@ -283,18 +283,6 @@
 
 ;;; UTILITIES FOR REPORTING FUNCTIONS
 
-(defn file-position
-  "Returns a vector [filename line-number] for the nth call up the
-  stack.
-
-  Deprecated in 1.2: The information needed for test reporting is
-  now on :file and :line keys in the result map."
-  {:added "1.1"
-   :deprecated "1.2"}
-  [n]
-  (let [^StackTraceElement s (nth (.getStackTrace (new java.lang.Throwable)) n)]
-    [(.getFileName s) (.getLineNumber s)]))
-
 (defn testing-vars-str
   "Returns a string representation of the current test.  Renders names
   in *testing-vars* as a list, then the source file and line of
diff --git a/src/babashka/main.clj b/src/babashka/main.clj
index ad619e2b..04ed0eb5 100644
--- a/src/babashka/main.clj
+++ b/src/babashka/main.clj
@@ -348,9 +348,6 @@ Use -- to separate script command line args from bb command line args.
   ;; hang until SIGINT
   @(promise))
 
-(defn exit [n]
-  (throw (ex-info "" {:bb/exit-code n})))
-
 (def aliases
   (cond->
       '{tools.cli clojure.tools.cli
diff --git a/test/babashka/uberjar_test.clj b/test/babashka/uberjar_test.clj
index d7f4b10d..cbdd070f 100644
--- a/test/babashka/uberjar_test.clj
+++ b/test/babashka/uberjar_test.clj
@@ -5,9 +5,6 @@
    [clojure.string :as str]
    [clojure.test :as t :refer [deftest is testing]]))
 
-(defn bb [input & args]
-  (edn/read-string (apply tu/bb (when (some? input) (str input)) (map str args))))
-
 (deftest uberjar-test
   (let [tmp-file (java.io.File/createTempFile "uber" ".jar")
         path (.getPath tmp-file)]
diff --git a/test/babashka/uberscript_test.clj b/test/babashka/uberscript_test.clj
index bfc13f91..ee7d11cd 100644
--- a/test/babashka/uberscript_test.clj
+++ b/test/babashka/uberscript_test.clj
@@ -4,9 +4,6 @@
    [clojure.edn :as edn]
    [clojure.test :as t :refer [deftest is testing]]))
 
-(defn bb [input & args]
-  (edn/read-string (apply tu/bb (when (some? input) (str input)) (map str args))))
-
 (deftest uberscript-test
   (let [tmp-file (java.io.File/createTempFile "uberscript" ".clj")]
     (.deleteOnExit tmp-file)