Fix Callable/Runnable bug in Clojure 1.8+

Fixes weavejester#65.
pithyless · Feb 25, 2019 · 4961ed9 · 4961ed9
1 parent e751924
commit 4961ed9
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/eftest/src/eftest/runner.clj b/eftest/src/eftest/runner.clj
@@ -42,7 +42,10 @@
       result)))
 
 (defn- ^Callable bound-callback [f]
-  (cast Callable (bound-fn* f)))
+  (let [bindings (get-thread-bindings)]
+    (reify Callable
+      (call [_]
+        (with-bindings* bindings f)))))
 
 (defn- default-thread-count []
   (+ 2 (.availableProcessors (Runtime/getRuntime))))