Remove when-class for Java 8 classes

Author: KingMob

README.md

@@ -121,27 +121,9 @@ Manifold can use any transducer, which are applied via `transform`.  It also pro
 
 A Clojurescript implementation of Manifold can be found here: [dm3/manifold-cljs](https://github.com/dm3/manifold-cljs).
 
-### Older Java support
-
-Manifold includes support for a few classes introduced in Java 8:
-`java.util.concurrent.CompletableFuture` and `java.util.stream.BaseStream`.
-Support for Java 8+ is detected automatically at compile time; if you are
-AOT compiling Manifold on Java 8 or newer, but will be running the compiled
-jar with a Java 7 or older JRE, you will need to disable them, by
-setting the JVM option `"manifold.disable-jvm8-primitives"`, either at the
-command line with
-
-    -Dmanifold.disable-jvm8-primitives=true
-
-or by adding
-
-    :jvm-opts ["-Dmanifold.disable-jvm8-primitives=true"]
-
-to your application's project.clj.
-
 
 ### License
 
-Copyright © 2014-2021 Zach Tellman
+Copyright © 2014-2022 Zach Tellman
 
 Distributed under the MIT License.

src/manifold/deferred.clj

@@ -22,13 +22,12 @@
      Future
      TimeoutException
      TimeUnit
-     ConcurrentHashMap
      CountDownLatch
-     Executor]
+     Executor
+     CompletableFuture]
     [java.util.concurrent.locks
      Lock]
     [java.util.concurrent.atomic
-     AtomicBoolean
      AtomicInteger
      AtomicLong]
     [clojure.lang
@@ -1259,20 +1258,18 @@
               (success! d msg))))
           d))))
 
-(utils/when-class java.util.concurrent.CompletableFuture
+(extend-protocol Deferrable
 
-  (extend-protocol Deferrable
-
-    java.util.concurrent.CompletableFuture
-    (to-deferred [f]
-      (let [d (deferred)]
-        (.handle ^java.util.concurrent.CompletableFuture f
-                 (reify java.util.function.BiFunction
-                   (apply [_ val err]
-                     (if (nil? err)
-                       (success! d val)
-                       (error! d err)))))
-        d))))
+  CompletableFuture
+  (to-deferred [f]
+    (let [d (deferred)]
+      (.handle ^CompletableFuture f
+               (reify java.util.function.BiFunction
+                 (apply [_ val err]
+                   (if (nil? err)
+                     (success! d val)
+                     (error! d err)))))
+      d)))
 
 ;;;
 

src/manifold/stream/iterator.clj

@@ -12,7 +12,8 @@
     [java.util
      Iterator]
     [java.util.concurrent.atomic
-     AtomicReference]))
+     AtomicReference]
+    (java.util.stream BaseStream)))
 
 (s/def-source IteratorSource
   [^Iterator iterator
@@ -63,19 +64,14 @@
           d)))))
 
 (extend-protocol s/Sourceable
-
-  java.util.Iterator
+  Iterator
   (to-source [iterator]
     (->IteratorSource
       iterator
-      (AtomicReference. (d/success-deferred true)))))
-
-(utils/when-class java.util.stream.BaseStream
+      (AtomicReference. (d/success-deferred true))))
 
-  (extend-protocol s/Sourceable
-
-    java.util.stream.BaseStream
-    (to-source [stream]
-      (->IteratorSource
-        (.iterator ^java.util.stream.BaseStream stream)
-        (AtomicReference. (d/success-deferred true))))))
+  BaseStream
+  (to-source [stream]
+    (->IteratorSource
+      (.iterator ^BaseStream stream)
+      (AtomicReference. (d/success-deferred true)))))

src/manifold/utils.clj

@@ -121,14 +121,11 @@
     `(do ~@body)))
 
 (defmacro when-class [class & body]
-  (let [disable-property (System/getProperty "manifold.disable-jvm8-primitives")
-        disabled?        (and disable-property (not= disable-property "false"))]
-    (when (and (not disabled?)
-               (try
-                 (Class/forName (name class))
-                 (catch Throwable e
-                   )))
-      `(do ~@body))))
+  (when (try
+          (Class/forName (name class))
+          (catch Exception _
+            false))
+    `(do ~@body)))
 
 ;;;
 

test/manifold/deferred_test.clj

@@ -6,7 +6,8 @@
     [clojure.test :refer :all]
     [manifold.test-utils :refer :all]
     [manifold.deferred :as d]
-    [manifold.executor :as ex]))
+    [manifold.executor :as ex])
+  (:import (java.util.concurrent CompletableFuture)))
 
 (defmacro future' [& body]
   `(d/future
@@ -271,14 +272,13 @@
 (deftest test-coercion
   (is (= 1 (-> 1 clojure.core/future d/->deferred deref)))
 
-  (utils/when-class java.util.concurrent.CompletableFuture
-    (let [f (java.util.concurrent.CompletableFuture.)]
-      (.obtrudeValue f 1)
-      (is (= 1 (-> f d/->deferred deref))))
+  (let [f (CompletableFuture.)]
+    (.obtrudeValue f 1)
+    (is (= 1 (-> f d/->deferred deref))))
 
-    (let [f (java.util.concurrent.CompletableFuture.)]
-      (.obtrudeException f (Exception.))
-      (is (thrown? Exception (-> f d/->deferred deref))))))
+  (let [f (CompletableFuture.)]
+    (.obtrudeException f (Exception.))
+    (is (thrown? Exception (-> f d/->deferred deref)))))
 
 (deftest test-finally
   (let [target-d (d/deferred)