removing unused fns

Author: fogus

src/main/clojure/clojure/core/async.clj

@@ -354,7 +354,7 @@ return nil for unexpected contexts."
       (deref p))))
 
 (defn alts!
-"Completes at most one of several channel operations. Must be called
+  "Completes at most one of several channel operations. Must be called
   inside a (go ...) block. ports is a vector of channel endpoints,
   which can be either a channel to take from or a vector of
   [channel-to-put-to val-to-put], in any combination. Takes will be

src/main/clojure/clojure/core/async/impl/dispatch.clj

@@ -79,15 +79,6 @@
     (catch ClassNotFoundException _
       false)))
 
-(def ^:private virtual-thread?
-  (if virtual-threads-available?
-    (eval `(fn [^Thread t#] (~'.isVirtual t#)))
-    (constantly false)))
-
-(defn in-vthread? []
-  (and virtual-threads-available?
-       (virtual-thread? (Thread/currentThread))))
-
 (defn- make-io-executor
   []
   (if virtual-threads-available?