lint cleanup - remove unused code

Author: puredanger

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

@@ -19,7 +19,6 @@
             [clojure.tools.analyzer.passes.jvm.annotate-loops :refer [annotate-loops]]
             [clojure.tools.analyzer.passes.jvm.warn-on-reflection :refer [warn-on-reflection]]
             [clojure.tools.analyzer.jvm :as an-jvm]
-            [clojure.core.async.impl.protocols :as impl]
             [clojure.core.async.impl.runtime :as rt]
             [clojure.set :as set])
   (:import [java.util.concurrent.atomic AtomicReferenceArray]))

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

@@ -85,33 +85,6 @@
         :recur)
     nil))
 
-(defn run-state-machine [state]
-  ((aget-object state FN-IDX) state))
-
-(defn run-state-machine-wrapped [state]
-  (try
-    (run-state-machine state)
-    (catch Throwable ex
-      (impl/close! (aget-object state USER-START-IDX))
-      (throw ex))))
-
-(defn take! [state blk c]
-  (if-let [cb (impl/take! c (fn-handler
-                                   (fn [x]
-                                     (aset-all! state VALUE-IDX x STATE-IDX blk)
-                                     (run-state-machine-wrapped state))))]
-    (do (aset-all! state VALUE-IDX @cb STATE-IDX blk)
-        :recur)
-    nil))
-
-(defn put! [state blk c val]
-  (if-let [cb (impl/put! c val (fn-handler (fn [ret-val]
-                                             (aset-all! state VALUE-IDX ret-val STATE-IDX blk)
-                                             (run-state-machine-wrapped state))))]
-    (do (aset-all! state VALUE-IDX @cb STATE-IDX blk)
-        :recur)
-    nil))
-
 (defn return-chan [state value]
   (let [c (aget-object state USER-START-IDX)]
            (when-not (nil? value)