CLJ-2841 - make IDeref extend DoubleSupplier, as with the other Supplier interfaces

Author: puredanger

src/jvm/clojure/lang/IDeref.java

@@ -13,11 +13,12 @@
 package clojure.lang;
 
 import java.util.function.BooleanSupplier;
+import java.util.function.DoubleSupplier;
 import java.util.function.IntSupplier;
 import java.util.function.LongSupplier;
 import java.util.function.Supplier;
 
-public interface IDeref extends Supplier, BooleanSupplier, IntSupplier, LongSupplier {
+public interface IDeref extends Supplier, BooleanSupplier, IntSupplier, LongSupplier, DoubleSupplier {
 Object deref() ;
 
 @Override
@@ -40,4 +41,9 @@ default long getAsLong() {
     return RT.longCast(deref());
 }
 
+@Override
+default double getAsDouble() {
+    return RT.doubleCast(deref());
+}
+
 }

test/clojure/test_clojure/atoms.clj

@@ -57,4 +57,7 @@
     (is (= 11 (.getAsLong a)))
 
     (is (instance? java.util.function.BooleanSupplier a))
-    (is (true? (.getAsBoolean a)))))
+    (is (true? (.getAsBoolean a)))
+
+    (is (instance? java.util.function.DoubleSupplier a))
+    (is (= 11.0 (.getAsDouble a)))))

test/clojure/test_clojure/delays.clj

@@ -85,4 +85,5 @@
     (is (instance? java.util.function.LongSupplier di))
     (is (= 100 (.get ^java.util.function.Supplier di)))
     (is (= 100 (.getAsInt ^java.util.function.IntSupplier di)))
-    (is (= 100 (.getAsLong ^java.util.function.LongSupplier di)))))
+    (is (= 100 (.getAsLong ^java.util.function.LongSupplier di)))
+    (is (= 100.0 (.getAsDouble ^java.util.function.DoubleSupplier di)))))