fix issue when using an atomic literal to short-circuit an if-some

Tensegritics · Nov 30, 2023 · 7c98a84 · 7c98a84
1 parent 1883100
commit 7c98a84
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/clj/src/cljd/core.cljd b/clj/src/cljd/core.cljd
@@ -600,11 +600,12 @@
      (nil? oldform) "1 or 2 forms after binding vector"
      (= 2 (count bindings)) "exactly 2 forms in binding vector")
    (let [form (bindings 0) tst (bindings 1)
-         temp `some#]
-     `(let [~temp ~(vary-meta tst dissoc :tag)]
+         temp `some#
+         tag (:tag (meta tst))]
+     `(let [~temp ~(cond-> tst tag (vary-meta dissoc :tag))]
         (if (nil? ~temp)
           ~else
-          (let [~form ~(vary-meta temp assoc :tag (:tag (meta tst)))]
+          (let [~form ~(vary-meta temp assoc :tag tag)]
             ~then))))))
 
 (defmacro when-some