File tree Expand file tree Collapse file tree 2 files changed +4
-7
lines changed
src/main/clojure/clojure/core Expand file tree Collapse file tree 2 files changed +4
-7
lines changed Original file line number Diff line number Diff line change @@ -85,10 +85,6 @@ IOC and vthread code.
85
85
86
86
(alias 'core 'clojure.core)
87
87
88
- (def ^:private go-becomes-ioc?
89
- (not (and (dispatch/vthreads-available-and-allowed? )
90
- (dispatch/target-vthreads? ))))
91
-
92
88
(set! *warn-on-reflection* false )
93
89
94
90
(defn fn-handler
@@ -559,7 +555,7 @@ IOC and vthread code.
559
555
Returns a channel which will receive the result of the body when
560
556
completed"
561
557
[& body]
562
- (if go-becomes-ioc?
558
+ (if ( not ( dispatch/target-vthreads? ))
563
559
(do (require-fresh 'clojure.core.async.impl.go)
564
560
((find-var 'clojure.core.async.impl.go/go-impl) &env body))
565
561
`(do ~(when clojure.core/*compile-files*
Original file line number Diff line number Diff line change 94
94
95
95
(defn ensure-runtime-vthreads! []
96
96
(when (not (vthreads-available-and-allowed? ))
97
- (throw (ex-info " Code compiled to target virtual threads, but is running on a JVM without vthread support."
98
- {:runtime-jvm-version (System/getProperty " java.version" )}))))
97
+ (throw (ex-info " Code compiled to target virtual threads, but is running without vthread support."
98
+ {:runtime-jvm-version (System/getProperty " java.version" )
99
+ :vthreads-directive (vthreads-directive )}))))
99
100
100
101
(defn- make-io-executor
101
102
[]
You can’t perform that action at this time.
0 commit comments