I'm trying to write a hook for a macro that acts a lot like try / catch, but instead uses async & fallback. here's my first pass:

(defn async
  [{:keys [node]}]
  (let [body (:children node)
        fallback (last body)
        body (rest (drop-last body))]
    (if (= 'fallback (first (api/sexpr fallback)))
      (doto (with-meta
              (api/list-node
               `(try
                  ~@body
                  ~(api/list-node
                    `(catch js/Promise p#
                       ~@(rest (:children fallback))))))
              (meta node))
        prn)
      (throw (ex-info "Last expr in async must be fallback" {:node node})))))

(async "foo" "bar" (fallback "loading ..."))