              ;; TODO Waiting on http://dev.clojure.org/jira/browse/CLJ-865:
              ?line  (:line (meta &form))]
          `(when-not ~x
-            (assertion-violation (stack-trace-who (.getStackTrace (Thread/currentThread)))
+            (assertion-violation (if-cljs
+                                   nil
+                                   (stack-trace-who (.getStackTrace (Thread/currentThread))))
                                  (str "Assertion failed")
                                  (make-location-condition '~?ns ~?file ~?line)
                                  '~x)))))

(defmacro condition
  [?base ?message & ?irritants]
  `(combine-conditions ~?base
                       (make-who-condition (stack-trace-who (.getStackTrace (Thread/currentThread))))
                       (make-message-condition ~?message)
                       (make-irritants-condition [~@?irritants]))))


             ;; TODO Waiting on http://dev.clojure.org/jira/browse/CLJ-865:
             ?line  (:line (meta &form))]
         `(when-not ~x
            (assertion-violation (if-cljs
                                  nil
                                  (stack-trace-who (.getStackTrace (Thread/currentThread))))
                                 (str "Assert failed: " ~message)
                                 (make-location-condition '~?ns ~?file ~?line)
                                 '~x)))))))
