CLJ-1472 Ensure monitor object is on stack, for verifiers

Signed-off-by: Stuart Halloway <stu@cognitect.com>
clojure · Mar 3, 2020 · f5403e9 · f5403e9
1 parent 228e172
commit f5403e9
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -1651,10 +1651,12 @@
   [x & body]
   `(let [lockee# ~x]
      (try
-      (monitor-enter lockee#)
-      ~@body
-      (finally
-       (monitor-exit lockee#)))))
+       (let [locklocal# lockee#]
+         (monitor-enter locklocal#)
+         (try
+           ~@body
+           (finally
+            (monitor-exit locklocal#)))))))
 
 (defmacro ..
   "form => fieldName-symbol or (instanceMethodName-symbol args*)