util.cljc

#?(:clj
(defmacro cljs?
   []
   `(boolean (:ns '&env))))

#?(:clj
(defn err-sym
  [n]
  (if n
    `js/Error
    `Throwable)))

#?(:clj
(defmacro profile
  [label expr]
  `(let [before# (default-timefn)
         _# (swap! depth inc)
         _# (println (indent ">>") ~label)
         result# (try
                   ~expr
                   (catch ~(err-sym (cljs?)) e#
                     e#))
         after#  (default-timefn)]
     (println (indent "<<") ~label "took" (- after# before#) "millis")
     (swap! depth dec)
     (if (instance? ~(err-sym (cljs?)) result#)
       (throw result#)
       result#))))